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RRRRRRRR MM MM 000000 XX XX AAAAAA BBBBBBBB 
RRRRRRRR MM MM 00000 Xx XX ABAARA BBBBBBBB 
RR RR MMMM MMMM 00 00 Xx XX AA AA 6B BB 
RR RR MMMM MMMM 00 8 XX XX AA AA 6B BB 
RR RR MM MM MM «00 6° 0 XX = XX Ag AA BB BB 
RR RR MM MM MM 00 000 XX XX AA AA BB BB 
RRRRRRRR MM mm 800 00 00 XX AA AA B8B88888B 
RRRRRRRR MM mm 00 00 00 XX AA AA BB8BBBBBB 
RR RR MM mM 0000 00 XX = XX AAAAAAAAAA 8B BB 
RR RR MM mm 0000 00 XX XK AAAAAAAAAA BB BB 
RR RR MM mM 00 00 Xx XX AA AA BB BB eoes 
RR RR MM mM 00 00 Xxx XX AA AA 6B coe 
RR RR MM MM 000000 XX XX AA AA B8B8BB8B eee 
RR RR MM MM 000000 XX XX AA AA BBBB eeee 
LL III SSSSSSSS 
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LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
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LL I] SS 
LL I] SS 
LL I] SS 
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(24) 1565 
(25) 1616 
(27) 1764 
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4 LARATIONS 
a OPEN XAB = PROCESS XABS FOR SOPEN 
_SCAN = COMMON XAB DISPATCH ROUTINE 
rac” XAB tS fa ROUTINES 
DAT XAB ROUTINE 
RDT XAB ROUTINES 
PRO “ peut ee 
ae ROUTINES 
R gy ees = ROUTINE TO HANDLE ALLOC XAB FOR SEQ. @ REL. F.O. 
ans XAB ROUTINES 
RMSSETEXTRMS = ROUTINE TO reps y CONTEXT XAB A. FAB & RAB 
RMSOPNCREXAB = ROUTINE TO RESTART OPEN OR CREATE 
RMSCONNXAB = ROUTINE TO RESTART CONNECT 


Terminal X 


AB Routines 
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SOOoQooooooooooooo 
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MNoNONONONoN SS 


“SEP=19 RMS .SRCIJRMOXAB.MAR; 1 
SBEGIN RMOXAB,000,RMSRMSO,<XAB PROCESSING ROUTINES> 


SHEA AAAEAAATAAEARAAAAAAAAAAAAAAAAAAAAAAAEAAAEAAAAAAARAREARAAAAAAAAAAAAAAAAEE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION,” MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH pint SE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT ARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


:f a 
:® ® 
:® * 
:* * 
:f * 
:® * 
sf * 
:® ® 
sf ® 
se Q ® 
;* TRANSFERRED. * 
‘ft * 
:* # 
of * 
°® * 
°f * 
sf * 
:* * 
:* * 
:® * 
* * 


Mmm <n 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
apokat inn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


; 
° 
e 
° 
e 
° 
o 
° 
° 
° 
° 
° 
6 
e 
° 
° 
° 
° 
° 
e 
e 
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p++ 
3; Facility: rms32 


Abstract: 
this module contains the routines to process xabs 
for open, display, create and modify. 
° Environment: 
° star processor running starlet exec. 
Author: l f laverdure ,creation date: 27-SEP-1977 
09 Modified By: 
00 v03-040 RASO291 Ron Schaefer 11-Apr-1984 
B38 Clear XABSL_ACLSTS before the ACP operation. 
0 We really ought to return an alternate status but 
000 it's impossibly awkward to bubble this obscure failure 
B88 up the chain to turn it into an alternate success/warning. 
On8 V03-039 RASO284 Ron Schaefer 29-Mar-1984 
Fix error path and STV value for XABALL processing. 
v03-038 0GB0029 Donald G. Bla 16-Mar-1984 


ir 
Implement ACLs and the PROPAGATE bit -- all in the 
protection XAB. 


V03-037 DBG0004 Donald G. Blair 23-Feb-1984 
Implement access mode protected files. 
V03-036 DAS0004 David Solomon 03-F eb-1984 


Tie off pouraet ings disable processing of SXABJNL on SCREATE. 
Fix incorrect register usage in probe of user AT journal name. 
Fix minor bug in $XABCXR restart code. 


V03-035 JWT0148 Jim Teague —s- 16-Dec-1983 
Make sure user can't SCREATE file with conflicting 


FUWN [CO OONAUE WN OOD NAULS WN OOODNOULS WIN —OO0 


Be Se Se Se Se Ge Ge Se Ge Ge Gs Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge Se Ge Ge Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ges Ge Se Se Se Se Sse Sete 


fe ay ete al eal oak ealeal wales ales eal eal eles P oP oP oP oP oe oe oF oe oe 


SOOSOCOSSOSOSOSSOSOOSOSOOOOOSOSOOSOOSOOOSOOOOOOOOOOOoOO 


SOoOSOSSCOOSOSOSOSOSOSOOSOOSOSOOSOSOOSOOSOSOOOOSOOOSOSS 
SOSSSSSSSOSOSOSOSSOSOSOSOSOSOSOSOOSOSOSOSOSOOSOOOSOSSoOS 


SSoSOSCSOSOSCSOOSOOSOSOSOSOOOOSOSOSOOSOSOSOOSOOSOSOSOSOSS 


02 RU attributes in the JNL XAB. 
6 V03-034 JWT0141 Jim Teague 11-Nov-1983 
o Change IFBSV_RUM to IFBSV_ONLY_RU 
70 v03-033 LMPO133 L. Mark Pilant 3ohug~ 1963 14:58 
71 Get default protection from PCB instead of PT space. Also 
7 don't supply the protection attribute unless explicitly 
t given in a PROtection XAB. 
75 v03-032 RASO177 Ron Schaefer 99-Jul-1983 
7 Improve RMS exit performance by sim ity ng the 
f non-context extraction path thru RMSSETEXTRMS. 
7 v03-031 DASO003 David Solomon 29-Jul-1983 
? XABJNL JOP bit RUA is now called ONLY_RU; add ASSUMEs. 
§ v03-030 KBT0546 Keith B. [honpson 22-Jun-1983 
Z Stuff the XABSW_VERLIMIT in the FHCXAB 


XAB PROCESSING ROUTINES 


CoOooooooSo 


Soooooooooooooo 


OOOOOOCOOOOSOOSOSOOOSOOSOOOOOSOOOOOOOoOO: 
OOOGOOCOOSSSSOSOSSooooSoooosooooooooo 


SOOO SCoCOOOoOoCoooooooscooooecsaG oo 
OOCCoOOCOCoOooooooooosa ss 


HPPA AANA AIGIRIPINPINPININININPINIDS 9 2 8 AQOOTOTOOCOOCOCOOCOOOVOOOOOO 
MOOD NOUN OS OOO NAU ES WN SO OONAM EWN 0 OD NOU EWN 9 OONAUE WN OWOONAOW 
Bete Se Ge Se Ge Ge Ge Ge Ge Se Ge Sse Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Se Se Sse Se Se Se Se Se Se Se Sets Se Se Se Se 


ee a a ad ed ts  —  — — — —  — — —) — 2) — 2d —s —) 2d 2 2) 3 


Sssoosooess 


Sooooo 
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v03-029 eeL0og) Peter Lieberwirth 17-May-1983 
x XABCLSPRO so IFB isn't overwritten when a our ious 
4d to update the FWA was made. The fix is to 
avoid altogether updating the FWA on CLOSE. 


v03-028 RASO153 Ron ® fers 
Delete reference to CABACEDEF missed by ereetaa: 


V03-027 RASO148 Ron Schaefer 26-Apr-1983 
Add initial s support for veutended XABPRO and ol iataste 
support for X 


1983 


v03-026 RASO138 n Schaefer 22-Mar-1983 
Delete global a. 5. ~~ XCONNO3 ARGS. 
v03-025 goer Jeffrey W. Horn 14-Mar-1983 
d XABACE support. 
v03-024 MCNO010 a del C. 08-Mar-1983 
I forgot to iuauae SBKIDEF or *mMCNO009. 
v03-023 MCNO009 aria del C. Nasr 07-Mar-1983 
Use symbolic =. "+ maximum bucket size. 
v03-022 LJA0068 urie J. Anderson 01-Mar-1983 


Ong new owes + XABCKR, CXRBFZ (the number of bytes 
in sonees of the user provided buffer CXRBUF) to make 
sure that it is at least XABSC_CXRBLEN (the Length which 
is necessary for storing two kéys). 


V03-021 JWHO189 Jeffre 15-Feb-1983 
Fill in UIC and Protec ion FuAY fields when processing 
the protection XAB. 


v03-020 DASO0002 David Solomon 09-F eb-1983 
Add XABTRM support. 
v03-019 LJA0057 Laurie J. Anderson 25-Jan-1983 
Fix a couple more things 
v03-018 LJA0056 urie J. Anderson 24-Jan-1983 
Fix a couple wtnon with RMS context extraction and in LJA0048 
v03-017 LJA0048 Laurie J. Anderson 4-Jan-1983 


- Add NRP for SEQ/REL 
- Fix setting oF LRL in IFAB. If this is NOT a coors, then 


do NOT copy the LRL value from the FHC XAB into the | 
v03-016 is Jeffrey W. Horn 21-Dec-1982 
Piace journal names in seperate ACEs. 
v03-015 RCHODOS Maria del C. 08-Dec-1982 
Return area id stunber (AID) 3 STV instead of XAB 
address for AID BKZ errors. 
aum Luchae : ze was increased to 127. 


~- In XABCREALL1, make sure we only process area 0, and 
not the first one since the XABS can come in any order. 
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v03-014 RASO108 Ron Schaefer 
Change XABSB_JOP to XABSW_JOP and 
fix bad branch for ISAM context restart. 


v03-013 ACG0306 Andrew C. Goldstein, 13-Dec-1982 14:58 
Remove obsolete file header symbols 


15-Dec-1982 


0 VO3-012 JWwHO0140 Jeffrey W. Horn 30-Nov-1982 
Add return Length fields for journal XAB. 

v03-011 LJA0037 Laurie J. Anderson 4-Nov-1982 
Add NRP processing for ISAM files. 
0 v03-010 LJA0027 Laurie J. Anderson 26-0 t-1982 
Delete fields no longer in use. 
0 v03-009 JwHO112 Jeffrey W. Horn 12-Oct-1982 
; Change journal names to be .ASCIC strings. 
0 v03-008 LJA0023 Laurie J. Anderson 5-0c t-1982 


Check for Uniqueness of Context XAB's on Restart. 
Error if duplicates. 


v03-007 LJA0022 Laurie J. Anderson 28-Sep-1982 


Use yet another register, R1, instead of R2 in xab_scan. 
V03-006 KBT0343 Keith B. Thompson epnsep~ 1962 
Use R2 instead of R6 in xab_scan (fix krm0061 
v03-005 KRM0061 Karl Malik 22-Sep-1982 
Modify RMSXAB_SCAN to save R7. 
V03-004 LJA0012 Laurie Anderson 03-Sep-1982 


Add Context XAB Processing for Exiting RMS Services. 
Add Create and Open Restart processing of XABCXF. 
Add Connect Restart processing of XABCXR. 


v03-003 KBT0302 Keith B. Thompson 28-Aug-1982 
Reorganize psects 

v03-002 JwHO002 Jeffrey W. Horn 02-Jun-1982 
Add Journal XAB processing. 

v03-001 RASO084 Ron Schaefer 2-Apr-1982 


Return RAT=CR for stream format files even if 
the file attribute is none. 


DOOOSOOSOSOSOOOOSOOSOSOOSOSOOOSOSOSOOOSSOOOOOOOOOOOOOOOOOOOO 


SOOoOQCOCOOCOOOOoOOCOoOoOoOOOoOOoOOoOoOoO 
SOCOCOSOOSOCOSOSOSSOOSOSOCOSOOSSOOCOOOSOOOOSOOOoCoOO 
MOOD NAN EWN OOD NAME WN SO OD NOUS WN SO OD NAULS WI OOONAOULS UM 
Sete Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Fe Ge Ge Ge Ge Se Se Ge Sse Fe Ge Se Se Se Ge Ge Se Sse Se Se Se Ge SeSse Se SeSe Sse Se Sets 


a a a a a a a 
500909090909 09.09 09 09 09 SI SINS SOS DDD ODDO IIIS BS 
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SSING ROUTINES 16-SEP-1984 00:41:4 AX/VMS Macro V04-00 Pa 
ONS ~3Eb=} 982 93:33:29 HANS MeacTRGoRab mages we 3) 
i -SBTTL DECLARATIONS 
195 ; 
196 ; Include Files: 
199 : 
138 
? 3 Macros: 
5 SACEDEF 
é ras 4 34 
5 BKTDEF 
$ $F ABDEF 
SRABDEF 
: $F CHDEF 
0 $F IBOEF 
0 1 SFWADEF 
00 1 SIFBOEF 
BS \§ SIRBDEF 
0000 1 SRMSDEF 
44 14 SXABDEF 
000 15 SXABALLDEF 
44 1g SXABCXF DEF 
000 1 SXABCXRDEF 
4 18 SXABDATDEF 
00 19 SXABFHCDEF 
+4 0 $SXABUNLDEF 
0 1 ABKEYDEF 
000 ¢ SXABPRODEF 
0000 SXABRDTDEF 
44 4 $XABSUMDEF 
00 5 SXABTRMDE 
B88 § CBDEF 
$00 8 ; 
Oh5 3 3; Equated Symbols: 
1 oe 
00000020 09 § FOP=F ABSL_FOP*8 ; bit offset to fop field 
09 4; 
0 5 ; define cese index values for xab dispatching 
§ 3 (note: these must correspond to the offsets in the xab case dispatch) 
§ XBCSC_OPNFHC == 0 3; fhe xab handler for open 
40 XBCSC_OPNFHC1 == 1 3: fhe xab handler for open (part 2) 
§ 41 XBC$C_OPNPRO zs ¢ 3 pro xab handler for open/display 
$5 XBCSC_OPNDAT == ; dat xab handler for open 
4 XBCSC_CREALLO 3 == 4 ; all xab handler for create 
44 : (for seq. and rel. f.o.) 
5 4 XBCSC_EXTALL == 5 : all xab handler for extend 
rt] XBCSC_CREALL1 == $ 3; all xab handler for create (part 2) 
4 XBCSC_CREPRO =e 3 pro xab handler for create 
° 3 $3 XBCS$C_OPNRDT ss 8 ; rdt xab handler for open 
0 4 XBC$C_OPNALL BS ; all xab handler for open 


20 22 1F 16 1E 13 15 


XAB PROCESSING ROUTINES 16-SEP-1984 00:41:4 AX/VMS Macro V04-00 
DECLARATIONS ety 7 9 33:89 RMS.SRCJRMOXAB.MAR; 1 
8 A 0 XBCSC_CLSPRO == 10 ; pro xab handler for close 
XBCSC_CLSROT == 1] ; tdt xab handler for close 
C XBCSC_DSPFHC == 1 3; fhe xab handler for display 
D XBCSC_OSPFHC1 == 1 ; fhe xab handler for display (part 2) 
E 54 XBCSC_OSPALL == 14 ; all xab handier for display 
F 55 MOC ee aD BPALL == 15 ; all xab handler for display (part_2) 
0 9 2$ XBCS$C_CREALL ss 1§ ; all xab handler for create (part 3) 
8 1 BS 5 XBC$C_OPNSUM z= | 3; summary xab handler / open and display 
000 at 0 28 1 43 4 Be sean == 18 3; alloc xab handler / open & displa 
000001 y 5 XBCSC_OPNKEY z= 19 3; key xab handler for open and display 
0000014 60 XBCS$C_OPNJNL == 20 ; journal xab handler for open 
B88 15 8 61 XBCSC_CREJNL == 21 ; journal xab handler for create 
00 1 86 4h ym Luh =s ¢ ; CXR Context XAB Handler for RMS Exit 
0000001 00 6 XBCSC_EXTCXR ae 3; CXR Context XAB Handler for RMS Exit 
4444 \8 00 64 KBCSC_OPNCKE zz 24 ; Open and create Restart Handler 
0000001 00 65 XBCSC_CONNCXR == 25 ; Connect Restart Handler 
siete aid Es 4 66 XBCS$C_XCONNOS === § : ISAM NRP processing rout ine for XABCXR 
00000018 0000 6 XBC$C_GETPUTTRM == ; TRM XAB handler for get/put 
0000001C 0000 68 XBCSC_OPNPRO1 == 28 3; pro xab handler for Spen/disp (part 2) 
0000001D 0000 69 493 NTPRO 22 $3 ; “pee ig = xab handler for enter/rename 
0000001E 0000 70 XBCSC_CREPRO1 == 30 xab handler for create (part 2) 
44 4 ; Watch out -= these xbc$ constants cannot "be larger than 31!! 
0000 rg : 
44 sie: : Own Storage: 
4 76 : A 
4 ae 3; table with all valid FAB xab codes for validation 
0000 379 ° 
1D 12 14 0000 $60 XABTBL: .BYTE XABSC_ALL,XABSC_DAT,XABSC_FHC,XABSC_KEY,XABS$C_PRO,- 
SN 281 XABSC_RDT,XABS$C_SUM, XABSC_TRM,XABSC_JNL,XABSC_CXF 
0000000A 99 seg XABTBLLEN=.-XABTBL 
Bana see 3 
449 aH 3; Table with all valid RAB xab codes for validation 
Bt SE asst 
1F 21 QOOA 89 BYTE XABSC_CXR, XABSC_TRM 
00000002 poet soe RXABTBLEN=.-RXABTBL 
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v04-000 RMSOPEN_XAB = PROCESS XABS FOR SOPEN “SEP=1984 13:33:49 LRMS. SRCTRMOXAB. MAR; 1 a (4) 
-SBTTL RMSOPEN_XAB = PROCESS XABS FOR SOPEN 


aa 
+ 


RMSOPEN_XAB: Process XABs for $OPEN, first part 
RMSOPEN_XAB1: Process XABs for SOPEN, second part 


these subroutines process the xabs for open. they are handled in 
two parts, the first executing before doing the access qio, 
the other after. 


this section of the module also includes the common xab chain 
following and dispatch code. 


Calling sequence: 


bsbw rm$open_xab 3; first part 
bsbw rm$open_xab1 3 second part 
Input Parameters: (For RMSXAB_SCAN, also) 
rii impure area address 
r10 file work page address or ifab (if r9 is irab) 
r9 ifab address or irab address (if rab xab) 
r8 fab address or rab address (if rab xab) 
r7 nwa address (if any) 


Or 

If called from EXTRMS, and there is not an IFB/IRB structure 
available, then (r7) has the user calling mode. 

fib address (if any) 

r5 next attribute address (if applicable) 

Implicit Inputs: 

fab$l_xab and the xabs within the chain thus defined 

Output Parameters: 


attribute List entries are added such that the requested file 
attributes are filled in. 


r5 updated to point to the next available attribute address. 
For call to scan for XABTRM, R5 points to XABTRM. 

r4 zero if no xabs processed, otherwise non-zero 
(in general, bit correspene ne to case handler index 
is set for each handler called) 

ri-r3,ap destroyed 

r0 status code 


Implicit Outputs: 
the various fields of the xabs are filled in. 
Completion Codes: 


SGOSSCSCSCOCSOSOSOSOSOSOSSOSSOSOOSOOOSOSOSOSOSOSOOSOSOSOSOSOSOSOSOSoOS 
POVOOODODAAOAADAAOOADODODOODAODODOADODOOBAODOAOOAOAOIAAOVOAIOAIOVVOAIOAAIOAVOAIAAIAIAAAIAIAIAIAAI 


Standard rms, in particular suc, xab, cod, imx and various others. 
; Side Effects: 


SONA NE WIN 9 ODA EWN OOO NOAU EWN @ O OD NAU EWN OOOO UNE WIN "OWOONOUS WW 
De Oe Be Oe Oe Oe Oe Oe Oe Be Oe Oe Be Oe Se Se Oe Os Be Se Se Os Oe Oe Oe Os Oe Os Os Os Os Be Oe Os Be Oe Oe Be Se Bs Oe Be Be Os Oe Oe Oe Oe Oe Se Se Se Se Ses 

— 

o 


SOoOoooooooooooooooooooooooooooooSoooooooooCoOoOoOOOOOOOOOOOOOO 
PPP EEE SE FAW IWIWIWWIWIWIWIRIPIPINININIPININID) 2 2 SS S| SDQOOTOOOOOOCOWOOOOOOO 


AANA AWA ANAA ANNA AANA ANNAN AAA AANA NAIN 


-00 
XAB.MAR; 1 
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v04- RMSOPEN_XAB = PROCESS XABS FOR SOPEN “SEP-1984 16:22:4 RMS.SRCJRMOXAB.MAR; 1 
c 38 
C ; the following table provides the dispatching information for those xabs 
C ; that are input to Sopen and require an entry in the files attribute List. 
: $' ; the entries consist of the xab code, its length, and its case index. 
C 6¢ A 
C 363 OPNXAB_ARGS: 
00 ef 1 00C 64 BYTE ree rape RABSE ANCL EN MECeE OPNF HC 
O¢ 10 13 OOOF 365 -BYTE XABS$C"PRO,XABSC_PROLEN_V3,XBC$C_OPNPRO 
03 24 12 001 66 .BYTE XABSC~DAT,XABSC_DATLEN_V2,XBC$C_OPNDAT 
08 14 if 8 6 BYTE XABSC_RDT,XABSC -RDTLEN,XBCSC OPRRDT 
0 1 68 -BYTE 3 end of table flag 
0019370 ; 
0019 71 : the following table y tty be those xabs to open that require processing 
0019 ie ; after the access qio has been performed. 
0019 374 
0019 375 OPNXAB1_ARGS: 
01 2C 1D 0019 376 .BYTE XABSC_FHC,XABSC_FHCLEN, XBCS$C_OPNFHC1 
09 ¢¢ 14 OO1C AG BYTE XABSC_ALL,XABSC_ALLLEN, XBC$C_OPNALL 
14 $C $$ OO1F 78 BYTE eer r-bak ankse “bate En’ at ak OPNJNL 
1C 10 1 bose Te -BYTE XABSC~PRO,XABSC_PROLEN_V3,XBCS$C_OPNPRO1 
00 00 80 -BYTE 0 
0096 38: 
0026 383 : entry point for processing open xabs (part 2) 
0026 384 : yp p g op 
d096 386 RMSOPEN_XAB1:: 
SC FO AF 9E 0026 87 MOVAB OPNXAB1_ARGS,AP ; set arg list addr 
04 11 002A $36 BRB XAB_SCAN 3 and go process 
0086 390 
002C 394 : entry point for processing open xabs (part 1) 
Dose 398° 
002C $90 RMSOPEN_XAB: : 
5C DD AF 9E O002C 95 MOVAB OPNXAB_ARGS,AP ; set arg List addr 
0030 39° ; 
0030 38 ; and fall thru to xab_scan 
$0380 400 * 


| 
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XAB_SCAN = COMMON XAB DISPATCH ROUTINE met 98355509 ERMS SRCIRMOXAS_MARs 1 . 
Q ¢ ~SBTTL XAB_SCAN = COMMON XAB DISPATCH ROUTINE 
404 ;++ 
3 Z 5 ; RMSXAB_SCAN: Scan XAB chain for processing 
0 & ; ; this routine scans the xab chain for a match on any of those xabs 
: 4 3 ; specified in the argument List. an xab is found it is probed 
409 ; and dispatch is made to the routine indicated by the argument List 
0 410 ; case index. 
8 411 ;-- 
tig 
8 415 RMSXAB_SCAN:: 
414 XAB_SCAN: 
D4 8 hE RG 3; clear uniqueness vector 
35 ‘Nf ASSUME FAB$B_BID EQ RABSB_BID 
91 00 419 CMPB FABSB_BID(R8) ,#FABSC_BID ; Is the user structure a FAB or RAB? 
is 003 420 BNEQ ; Not a FAB, Must be a RAB 
DO 0037 421 MOVL FABSL_XAB(R8) ,R3 i get ist xab address from FAB 
046 «+11 bose 4 ¢ BRB HKXA ; Continue - check if XAB present 
53 40 A8 rt 03D 423 5$: MOVL RABSL_XAB(R8) ,R3 3 get 1st XAB address from RAB 
03 12 0041 424 CHKXAB: BNEQ 6$ ; Canother) XAc present 
O0O9F 31 0043 425 BRW SUCXIT 3; ALL done if none. 
59 D5 0046 426 6$: TSTL R9 : If called from EXTRMS, then could.. 
06 «13 Opee : i BEQL 7$ 3 «not have an IFB/IRB structure. 
ORen 635 ASSUME IFBSB_MODE EQ IRB$B_MODE 
51 OA AY Q9A OO4A 431 MOVZBL IFBSB_MODE(R9),R1 : get mode in R1 for probe 
03 «171 Boes +38 BRB 8$ ; Continue - probe structure 
s.6USPF CU 0980 434 7$: OVL R7,R1 ; Move the user calling mode to R1 
63 08 51 OC 005 435 8$: PROBER R1,#XABSL_NXT+4, (R3) ; probe readability 
03 12 it $36 BNEQ g 
0094 31 0059 43 BRW ERRXAB 3; error if no access. 
5 5C DO OO5C 438 9$: MOVL AP ,R2 ; get address of scan table 
6 82 91 OOSF 439 108: CMPB (R2)+ XAB$B_COD(R3) ; xab code match this entry? 
20 «(13 bbe 440 BEQL GOTXAB ; branch yes 
52 Pf: ¢? 0064 441 ADDL2 #2,R2 3 next table entry 
62 95 0067 44g TSTB. (R02) : end of table? 
F4 12 0069 44 BNEQ 10$ ; branch if not 
0068 444 
6B 445; 
68 446 ; found no match in the table. : 
43 rif 3; check against all xab codes for at least valid and if so ignore it. 
068 449 
'¥4 $29 ASSUME FAB$B_BID EQ RABS$B_BID 
03 68 91 0068 126 CMPB FABSB_BID(R8) ,#FABSC_BID ; Is the user structure a FAB or RAB? 
07 = 12 B28 45 BNEQ ; Not a FAB, Must be a RAB 
8B AF OA 63 3A 00 454 LOCC XAB$B_COD(R3) ,#XABTBLLEN,XABTBL ; known FAB XAB code? 
03 11 sf 455 BRB ;_ Continue 
BE AF O02 6 3A 7 $28 15$: LOCC XABS$B_COD(R3) ,ARXABTBLEN,RXABTBL ; known RAB XAB code? 
r¢ 13 ore 43 20$: — BEL e ; branch if not. 
53 O4A dO 7E 458 NXTXAB: MOVL XABSL_NX1(R3) ,R3 3 get next xab in chain 
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XAB_SCAN = COMMON XAB DISPATCH ROUTINE - 6:2 RMS.SRCIRMOXAB.MAR; 1 
BD 11 459 BRB CHKXAB 3 90 process 
£ 288 spite 
4 4661; 
4 186 3; found a match in the xab table. 
0 r 684 3: check the Length, probe it, and dispatch to the handler. 
4 465° 
50 01 A3 9A 0084 £98 GOTXAB: MOVZBL XABS$B_BLN(R3),RO : get xab tengt? field 
82 29 91 8 8 46 CMPB RO,(R2)+ i; is Length in.? 
§ 1F 0 B 468 BLSSU ERAXAG : branch f yes 
9 0 08D 28? TSTL RY : If relied rom EXTRMS, then could.. 
06 = =«1 88 , $f9 BEQL Rs 3 ..not have an IFB/IRB structure. 
0091 a6 ASSUME IFBSB_MODE EQ IRB$B_MODE 
51 OA AD QA 0091 474 MOVZBL 4 a tat : get mode in R1 for probe 
03 «11 B889 of? BRB 5$ ; Continue - probe structure 
51 57 dd 0097 t39 $08: MOVL R7,R1 ; Move the user calling mode to R1 
ss 3 3} 98 QOO9A 478 35$: PROBEW Bt eRe (R3) : probe writeability 
50 13 QO9E 479 BEQL ERRXAB ; branch if no eccess 
DB AF 9F OQOA 480 PUSHAB 18 ; push sy to 1. 
QOA 481 CASE TYPE (R2),- : ‘2 at 
00A 48¢ SI SPLISTSCKABDPNENC, XABOPNFHC1 , XABOPNPRO, KAB 
QOA 48 XABCREALLO, RMSEXTEND XAB, XABCREALL1 HABCREPRO, s 
OOA3 484 XABOPNRDT, XABOPNALL , RAB ABCLSPRO. XABCL LSRD 
O0A3 485 XABDSPFHC *XABDSPFHC{  RABDSPA bh AAsDSEAL - 
00A3 486 XABCREALL2, RM$1SUMO3,RMS1 TALLO RMS IKE YO 
00A3 487 FABOPNLNL KABCREJNL L,XABEXT CXF , KABEX TCXR 
QOA3 465 XABOPNCXF XABCONNCXR, XCONNO3,XABTRM, XABOPNPRO1, - 
00A3 489 XABENTPRO_XABCREPROTS 
OVES 490 
GOES 491; 
Bees rh 3 (note: should never fall thru) 
00ES 494 ; dispatch with standard r8 thru r11 and 
Q0OES 495; r6 = fib address 
O0ES 496; r5 = addr to build next attribute list entry 
00ES 497; r4 = xab uniqueness bit vector 
Boee $38 ; r3 = xab address 
00E5 500 : must return with r& and r5 updated as necessary and only r0 thru r2 
Opes 306 : modified. note: ap must not be modified. 
Me 308 ; error routine should clean return pc from stack and rsb with error code in r0. 
0E5 505 
0E5 88 SUCXIT: RMSSUC 
05 BES RSB 
a 
00E9 510 : Conflicting XABJNL RU attributes 
OE9 11; 
e9 \¢ 
e9 15 ERR_CONFRU: 
Eg 14 RMSERR XCR 3 No arguments 
16 0 2«611 EE 15 BRB CLNSTK 
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AB DISPATCH ROUTINE eo yi 9b: 33i29 FRMS SRCTRMOXAS_ MART ° 16 


handle errors. problem could be: 


= non-accessible xab 
- invalid xab length 


ERRXAB: 
RMSERR XAB ; declare error 
SETSTV: pose R3,FABSL_STV(R8) ; give address 


: handle invalid xab code error 


ERRCOD: 
RMSERR COD 
BRB SETSTV 
: handle invalid duplicate xab error 


3 remove return pc from stack 


IMX 
CLNSTK: TSTL (SP 
BRB SET 


)+ 
STV 


3; if already one 
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XAB PROCESSING ROUTINES 197360 138% 0:4 40 me Macro V04-00 Page 
FHC XAB PROCESSING ROUTINES =SEP=-1984 16:22:4 RMS ..SRCJRMOXAB.MAR; 1 
j 49 -SBTTL FHC XAB PROCESSING ROUTINES 
Rae 
A 3 
10A 3; KABDSPFHC: Process file header XAB for $DISPLAY, gore 1 
10A 54 ; XABOPNFHC: Process file header XAB for SOPEN and SCREATE, part 1 
10A 55 ; KABDSPFHC1: Process file header XAB for $DISPLAY. pert 
; : 28 3; KABOPNFHC1: Process file header XAB for SOPEN and SCREATE, part 2 
10A 58 : xab routine to process the file header characteristics xab for $open, 
10, 23 ; $create, and $display 
10A $9 : called in two parts. the first part merely builds an attribute List 
Bion 368 3 entry to read the record attributes into the user's xab. 
4 2¢ : the second part fills in the sbn and swaps the ebk and hbk fields. 
10A 266 i-- 
10A 6 
10A 568 ;++ 
010A 4 3 
Bion 259 3 entry point for $display processing. (must read in statistics block) 
010A 378 i-- 
010A 57 
O10A 574 XABDSPFHC: 
85 04 B80 OQ10A 575 MOVW #4, (R5)+ : read only sbn Longword 
85 09 B80 0100 576 MOVW #ATRSC_STATBLK,(R5)+ : of statistics block 
85 28 A3 DE ae Has MOVAL XABS$L_SBN(R3),(R5)+ ; read directly into xab 
0114 579 ;++ 
0114 580; 
Bite 28) 3; entry point for Sopen and $create processing. (read in record attributes) 
0114 28 i-- 
0114 584 
0114 585 XABOPNFHC: 
23 A9 02 91 «#01146 586 MP #IFBSC_IDX, IFBSB_ORGCASE(R9) ; if this is not an indexed file 
05 4g 0118 587 BNEQ 5$ 3 process xab 
17A3 9 ais 588 TSTB XABS$B_AID(R3) ; if not Ist area xab 
1D ig 11D 589 BNEQ 10$ s skip processing 
DE 54 00 € ie 5 , 5$: BBSS #XBCSC_OPNFHC,R4,ERRIMX ; flag xab seen, error 
1 
: § 
ae 
$3 0 4 1 $ MOVW #32, (R5)+ ; return all 32 bytes 
5 4 8B 1 g MOVW MATRSC_RECATTR, (R5)+ 3; read record attributes 
85 08 AS DE 01 8 MOVAL KABSB_RFO(RS) , (5) : address to read attr.s 
01 #1F AB 91 012d CMPB FABSB_RFM(RS) ,MFABSC_FIX ; fixed rec. format? 
9 13 01351 600 BEQL 10$ ; branch if yes 

05 69 § E1 Q1 ; 601 BBC #IFBSV_CREATE,(R9),10$ ; skip copy of LRL if not create 

52a9 OA AS BO r 6 ; MOVW § XABSW_CRL(R3).IFBSW_LRL(R9); copy Longest rec. Len. 
13C 604 
13¢) = 605 


SODOOOCOOOOOOOOO0OOC 


; in case this is $create 


——_ 
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XAB PROCESSING ROUTINES 19360-1388 90:34:40 ees Macro v04-00 Page 14 
FHC XAB PROCESSING ROUTINES “SEP=1984 16:22:4 RMS.SRCJRMOXAB.MAR; 1 (8) 
13¢ 66 § $ 
im ¢ 
05 O013C 6 3 10$: RSB 
130 66 
130 610 ;++ 
13D 6611; 
13D ol¢ 3; part 2 (called after the access qio) 
130 6613; 
13D «614 ;-- 
13D 615 
13D 018 3++ 
13 S18 ¢ entry point for $ 
3 entry point for Sopen 
13D $19 : 
13D 620 ;-- 
0130 621 
3 D 6 ¢ XABOPNFHC1: 
28 AS) «=6(O1AB CA SO0s«*0 4 6 MOVL FWASL_SBN(R10) , XABSL_SBN(R3) 3; set starting Lbn 
C ag B0 ae 624 MOVW F IBSW_VERLIMIT(R6),=- 3 and version Limit 
6A 146 625 XABSW_VERLIMIT(R3) 
014 6 § 
014 627 ;++ 
0148 3 : ; ent int for $displ 
3 entry point for splay 
pies 630 ; 
014 631 ;-- 
o1e8 O36 
1s 635 XABDSPFHC1: 
AS 28 A3 10 9C 014 634 ROTL #16,XABSL_SBN(R3) ,XABSL_SBN(R3) ; swap halves of start Lbn 
AS 10 A3 10 9C O16E 635 ROTL #16,XABSL_EBK(R3) ,XABSL_EBK(R3) ; swap halves of ebk 
0B 12 bie O36 BNEQ 10$ ; branch if non-zero 
Bize O38 ASSUME FABSC_SEQ EQ 0 
23 a9 so 9S bi86 640 TSTB IFB$B_ORGCASE(R9) : sequential file org? 
06 13 0159 641 BEQL 10$ ; branch if yes 
10 AS. = 70 01 C1 0158 64 ADOL3 #1, 1FBS$L_HBK(R9) ,XABSL EBK(R3) 3; set ebk from hbk + 1 
0c A370 ADO 0161 643 10$:  MOVL  IFBSL_HBR(R9),XABSL_HBR(R3) ; set hbk from ifab 
166 645; 
bee 646 ; force stream format files to appear to have RAT non-null, 
166 647 ; even if they don't. 
166 648 ; 
166 64 
166 650 ASSUME FABSC_STM LT FABSC_STMLF 
166 651 ASSUME FABSC_STM LT FABSC_STMCR 
166 626 ASSUME FABSV_ORG EQ 4 
198 $37 ASSUME FABSS_ORG EQ 4 
50 O08 Ad 04 98 34 166 655 EXTZV #0,#4,XABSB_RFO(R3),RO ; extract record format 
06 50 91 016¢ 696 CMPB RO #FABSC_STM : stream format? 
, 1F is 65 BLSSU 3 ° nope 
7 93 0171 658 #<FAGSM_CR!FABSM_F TN! FABSM_PRN>,- 
09 ar ; 1%5 $23 sett ABSB_ATR(R3) ; Carriage control already set? 
3; 0 
09 Ad s«02 as 17 661 BISB2 #FABSM_CR,XABSB_ATR(R3) ; force RAT=CR 
178 662 308: RSB 


«13 aed 
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ING 5 
v04 DAT XAB ROUTINE SEP=-1984 RMS.SRCIRMOXAB.MAR; 1 9) 
17¢ 4 -SBTTL DAT XAB ROUTINE 
15 - 
Vee 68) ; MABOPNDAT : Process the date and time xab for Sopen, $create, & $display. 
17¢ ees : in all —— cases attribute List entries are made for creation date & time, 
\e 670 : expiration date & time, revision date & time, and revision count. 
17¢ or¢ : I!!! \note: this routine should be modified when a single attribute can 
17€ «696673; handle all four.\ !!! 
17 «66674; 
17C of? j-- 
17¢ 16 
bige 677 XABOPNDAT: 
8154 03 €2 +4 of8 BBSS #XBCSC_OPNDAT,R4,ERRIMX ; flag xab seen, error 
0180 680; 
4 red 3; if already one 
o180 eas : make attrbute List entries for creation & expiration date & time 
$180 685 ° 
85 08 80 Bie 686 MOVW #8,(R5)+ 3; date length 
85 11 680 biSz ret MOVW #ATRSC_CREDATE, (R5)+ ; xfer creation date 
50 18 A3 14 A3 c9 pies 689 BISL3 XABSL_CDTO(R3) ,XABSL_CDT4(R3),RO ; is date 0? 
OA 12 018C 690 BNEQU 3 no - use date 
tty 691 $GETTIM_S TIMADR=XAB$Q_CDT(R3) ; yes - use current date 
85 14 A3 DE BIE 33 10$: MOVAL ~XABSQ_CDT(R3),(R5)+ 3; xfer address 
019C 694; 
019C 695 ; don't default expiration date 
19C 238 ; 
19C 69 
85 08 B80 019C 698 MOVW #8, (R5)+ 3; date Length 
85 13 BO 019F 99 MOVW #ATRSC EXPDATE, (R5)+ 3; xfer expiration date 
85 1C AS DE BiAe £00 MOVAL XABS$Q_EDT(R3),(R5)+ ; xfer address 
1A6 70 3 
Stas 7 : 3; Only process the backup date and time if the length of the XAB block 
QO1A6 704 ; includes it. Do not default it. 
bias 708 
2C O1A3 91 O1A6 7 : CMPB XABSB_BLN(R3) ,AXABSC_DATLEN ; does it include backup date? 
OA 1F OQOIAA 7 3 BLSSU 20% : branch, if it does not 
5 08 B80 O1AC 70 MOVW #8, (R5)+ ; date Length 
5 14 BO OIAF 710 MOVW  #ATRSC_BAKDATE,(R5)+ : transfer backup date attribute code 
85 24 a3 df 182.711 MOVAL XABS$Q_BDT(R3),(R5)+ ; transfer address = | 
ie 18 ig 20$: BRB REV_DATE_COUNT ; make attr entries for revision 
18 71 3; date & count and return 
18 714 | 
| 
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RDT XAB INES mie Pi 8:53:09 CAMS SRCIRMOXAB. MARS 1 . 8) 
18 rg -SBTTL RDT XAB ROUTINES 
1e8 
;++ 
18 8 ; XABOPNRDT: process the revision date and time xab for Sopen, $create, & $display. 
i q y ; MABCLSROT: process the revision date and time xab for $close 
1B 7 § ; in all three cases attribute List entries are made for revision date & time 
1° f ? 3; and revision count. 
18 725 ; !!! \note: this routine should be modified when a single attribute can 
18 7 § ; handle both.\ !!! 
1B 72? ; 
18 7 8 ;-- 
18 7 
18 730 XABOPNRDT: 
03 54 08 5 18 731 BBCS #XBCS$C_OPNRDT,R4,10$ ; flag xab seen, 
0101 1 018C 7 § BRW ERRIMX_BR1 ; error if already set 
1BF 67335 108: 
1BF 734 REV_DATE_COUNT: 
85 98 BO O1BF 735 Rovw #8, (R5)+ ; date length 
85 12 B0 bice f g MOVW  #ATRSC_REVDATE,(R5)+ =: xfer revision date 
50 10A3 OC Ad C9 b1¢3 738 BiSL3 XABSL_RDTO(R3),XABSL_RDT4(R35),RO ; is date 0 ? 
OA 12 O1CB 739 BNEQU§ 30 3_no - use it 
01CD 740 SGETTIM_S TIMADR=XAB$Q_RDT(R3) ; yes = get current date 
85 OC AS DE Bee me) 30$: MOVAL ~“XABS$Q_RDT(R3),(R5)+ ; xfer address 
85 02 80 01DB 23 MOVW #2,(R5)+ 3 revision count Length 
85 OD R0 O1DE 744 MOVW #ATRSC_ASCDATES,(R5)* : revision count attribute code 
85 08 A3 : at 745 MOVAW XABSW_RVN(R3),(R5)+ ; address to xfer rvn 
0 1E5 746 RSB 
O1E6 «36747 
Siee 748 3 ++ 
bree 4 3; routine to process rdt xab for $close. 
Q1E6 751 ; same pracesscns as for Sopen rdt except that attribute list entries are 
01E6 P36 3; built on the stack. 
BtEe a ; 
166 754 ;-- 
166 755 
1&6 £36 XABCLSRDT: 
03 54 0B 53 166 «675 BBCS #XBCSC_CLSRDT,R4,10$ ; branch xab not seen 
FFI4 1 O1EA £38 BRW ERRIMX ; flag xab seen , error 
1ED 3875 
1ED 760; 
1ED 761 ; if already one 
Ree 
2 98 cé 1ED 764 10$: SUBL2 #8,SP ; create 8 bytes on stack 
5 E p 1F 765 MOVL YY R ; build attr. List entries here 
76° O08 AE 7D O1FS = 76 mova (§P) ,-(SP) ; return addrs to bottom of stk 
C6 11 O1? 76 BRB REV_DATE_COUNT : build attr List entries 
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PRO KAB ROUTINES Seen Rs 98:53i29 AME MeS Macro AS Omanct 9 a) 
1F $8 -SBTTL PRO XAB ROUTINES 
#94 
p++ 
1F 772 ; XABOPNPRO: Process the protection xab for $open and $display. Make 
1F9 7735 ; entries in the attribute list to have the ACP fill in the xab fields 
1F9 «774; directly. 
1F9 «775 
1F9 £76 i-- 
1F9 77 
1FE ors XABOPNPRO: 
03 54 02 53 179) 7 BBCS #XBCS$C_OPNPRO,R4,5$ ; br if_no xab seen (okay) 
FFO! 1 OF 4 ? BRW ERRIMX ; else flag duplicate xabpro 
4F 7 ¢ 5$: BSBB UIC 3; make uic attr. list entry 
rH 1 7 8SBB MTACC 3; make ansi accessibility entry 
co ms 784 BSBB PRO ;_make file protection entry 
58 8F 01 AS 91 6 785 CMPB © XABSB_BLN(R3),#XABSK_PROLEN ; Extended Length XABPRO? (New V4) 
é 1F 0208 7 ; BLSSU 108 ; skip if not 
A 10 0D 7 BSBB OT_MODE 3_make access mode protection entry 
85 00260002 8F 00 OF 788 MOVL #<ATRSC_ACLLENGTH@16>+2,(R5)+ ; attribute to return acl Length 
85 EAS D 16 789 MOVAL XABSW_ACLLEN(R3),(R5)+ =; xfer directly to xab 
18 A D 1A = 790 TSTL XABSL_ACLBUF (R3) ; did user specify an acl buffer? 
1 1 1D 791 BEQLU $ 3; branch if not 
85 iC A 80 8 1 679 MOVW XABSW_ACLSIZ(R3),(R5)+ ; size of acl buffer : 
5 25 B80 3 7 MOVW #ATRSC_READACL,(R5)+  : attribute to place acl in user buffer 
85 18 AS DO 0226 794 MOVL XABSL_ACLBUF (R$), (R5)+ 3; addr of acl buffer 
0 AS DO O22A 795 MOVL XABSL_ACLCTX(R3),- 3 pass acl context to file system 
0 Ab 0220 79 F IBSL-ACLCTX(R6) 
24 AS D4 O22F 79 CLRL XABSL_ACLSTS(R3) ; clear acl status 
05 8 ; 798 10$: RSB 
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yor-000 PRO XAB ROUTINES eet 7 b353i29 YRMS SRCIRMOXAS. MAR: 1 . (12) ve 
3++ 
; XABOPNPRO1: This routine contains protection xab processing which must 
: follow the call to the acp for Sopen/Sdisplay operations. 
XABOPNPRO1: 
9 A391 CMPB XABS$B_BLN(R3),- 3 extended-length xabpro? 
8 . 0 #XABSR_PROLEN 
1F 1 BLSSU-:10$ 3; branch if not. 
OA b0 1 MOVL FIBSL_ACLCTX(R6),=- ; place acl context in xab 
OA 1 XABSL_ACLCTX(R5) 
4 “¢ dO 1 MOVL FIBSL_ACL_STATUS(R6),- ; return status for acl operation 
4A 1 XABSL_ACLSTS(R3) 
05 : 10$ RSB 
1 
1 
1 


: Miscellaneous subroutines used by protection xab routines. 


; put protection attribute code into attribute List 
85 00160002 8F 00 PRO: MOVL #<ATRSC_FPROQ@16>+2, (R5)+; Cteplay SOWG protection - 2-byte field 
85 08 A3 ROVAL XABSW_PRO(R3),(R5)+ 3; xfer directly to xab 


put uic attribute code into attribute List 
IC: MOVL #<ATRSC_UICQ16>4+4,(R5)+ ; else lay uic in Senger field 
r 


Hee te ee 


85 00150004 8F D0 
85 OC A3 


PAAR MAN AARA AAAI ATI BS BB BS AAA AAA AAA AAA 


MOOD NA NE WIN OOD NAU EWN OS ODNAUE WN $9 OONAUES WI OO OONOU ES win 


D : MOVAL XABSL_UTC(R3),(R5)+ ; xfer ectly to xa 
0 3 RSB 
ie 
i > put ansi accessibility attribute code into attribute List 
85  001€0001 8F 00 41 MTACC: MOVL #<ATRSC_HDR1_ACCQ16>+1,(R5)+ ; display ansi accessibility byte 
85 OA A3 DE 4 MOVAL XABSB_MTACC(R3),(R5)+ ; xfer directly to xab 
05 4 RSB 
r 
4 r ; put access mode protection attribute code into attribute List 
69 848 PRT_MODE: 
85 00180001 8F D0 9 84 MOVL #<ATRSC_ACLEVEL@16>+1,(R5)+ ; display access mode prot. byte 
85 10 A3 oF 0 5 MOVAL XABSB_PROT_MODE(R3),(R5)+ ; xfer directly to xab 
0 74 5 RSB | 
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g:3p:47 RMS .SRCJRMOXAB.MAR; 1 (13) 


ux 
om 
cw 
ee 


=1984 


+ 
XABCREPRO: Process the protection xab for $create 


If nonzero vic, then enter attribute to write the vic. If uic=0 
; and the fab$v_cif bit is set, 
make the attribute atr$c_uic_ro which means although this is a 
; WRITE ATTRIBUTES subfunction, but won't you please READ ATTRIBUTES 
; the uic if this turns out to be an open of an existing file so that the 
vic isn't altered. 


; Enter attribute to write the protection field unless the default -1 
is set. Note that since -1 (*XFFFF) indicates ‘'No access’’, you cannot 
; SCREATE a file for no access using RMS. 


De Se Ge Be Oe Se Ge Ge Be Se Se Be Se Be we 
+ 


XABCREPRO: 
BBSS 


4754 O07 €E2 #XBCSC_CREPRO,R4,ERRIMX_BR1 ; flag xab seen, error 


: handle uic 


HD VMNVIVIVIVIN FT MMM MMO PAX SQOOSCKOKOM OOOO OS OUMIUNINVIVIVNIUIVIVIVIVIVIVIUIUION «|r 


SOOCOCOCOCOCOCOCOOCOCOOCOSOOSOSOSSSOSSOOSOCOSOOOOCSOOSCOOSOSOOOOSOOOOCOOOOOOOOOOoOOo 
BOO OOO OOOO O0069 096909 69.09G9.09 09.09 C909 03.69 0909 NIN INI INI INI SI NII NINN NINN NSIS 


PIPIPINININDPINIPPINNINYINIPININININIPIPOPNYNIADININIPYPININININIPYIPIPNINYPIPINIPPIPIPYIPIPOPOPIPIPIPUPPPONINPD 


28 AA OC AZO MOVL XABSL_UIC(R3),FWASL_UIC(R10) ; copy uic to FWA 
oc it BNEQ 20$ : branch if not zero 
879 ; 
880 ; zero uic 
BB? 
0A 68 39 €1 88 BBC #FABSV_CIF+FOP,(R8),40$ ; branch unless cif set 
cB C10 88 BSBB UIC : specify uic read 
FA AS 1A B0 88 MOVW #ATRSC_UIC_RO,-6(R5) ; make sure uic not written 
02. 11 HS BRB 40$ 
cs HS 208: BSBB UIC 3 use non-zero uic 
890 ; 
83 3; handle ansii accessibility 
93 ° 
OA AS 95 33 40$: TSTB XAB$B_MTACC(R3) 3 any speq i tied? 
02 13 9 BEQL 50$ 3; branch if yes 
cs 10 ( BSBB MTACC 
98 ; 
99 ; handle protection 
30 
2C AA 08 AS” BO 902 50$: MOVW XABSW_PRO(R3) ,FWASW PRO(R10) ; put prot into FWA 
50 2C AA O1 Al 90 ADDW3 #1, FWASW_PRO(R10) ,RO : is protection = -1? (i.e. default) 
02 13 90 BEQL 60$ ; branch if so ; 
Ag 10 90 BSBB PRO ;_include attribute to write protection 
58 8F O1A 91 \ 06 60$: CMPB XAB$B_BLN(R3) ,#XABSK_PROLEN ; extended length XABPRO? (New V4) 
15 1F OA 0 BLSSU 70$ ; skip if not 
43 10 AA 9 SBB PROT MODE ; attribute for access mode protection 
18 A D5 AC 9 TSTL XABSC_ACLBUF (R3) 3; did user specify an acl buffer? 


RM( 
v0! 


RMOX XAB PROCESSING ROUTINES 16-SEP-1984 00:41:40 VAX/VMS Macro V04-00 Page RM 
v04-0 PRO XAB ROUTINES eet 9833529 FRMS  SRCIRMOXAS MART ° (3) vo 
of 1 AF 910 BEQLU 0$ 3 branch if not 
85 ICA B 8 911 OvW XABSW_ACLSIZ(R3),(R5)+ ; siz of acl buffer 
85 iF 8 B af MOVW #ATRSC_ADDACLENT,(R5)+ ; attribute to create acl 
85 18 ‘3 D B 1 MOVL KABSL AELOUE IRg} »(RO)* ; address of user's acl buffer 
24 A D4 BC 14 CLRL XABSL_ACLSTS(R3) 3; clear acl status 
05 BF 15 70$: RSB 
C 1 
C 917 ; 
C 218 3 extended branch for error 
C 919 ; 
é $31 ERRIMX_ BR1 
FE3E 31 ‘8 3 2 ~ BRW ERRIMX 
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OUTINES 16-SEP-1984 00:41:4 AX/VMS Macro V04-00 
873 b= | 98c 1:33:49 LRMS SRCTRMOXAB. MAR 1 


RMOX XAB PROC 
v04 PRO XAB 


: lf extended xabpro then return acl status. 


XABCREPRO1: 
CMPB lay BLN(R3),- ; extended-length xabpro? 

#XABSR_PROLEN 

BLSSU 108 ; branch if not 

MOVL FIBSL_ACL hanes ; return status for acl operation 
XABSL-ACLSTS(R3) 


mw 
a 
> 

Wo Ww 
u— 
om 


10$: RSB 


OMFS POOWIN NIA oo 


4 54+ 

; XABCREPRO1: Process the protection xab for $create, part 2. 
4 

5 

6 

37 


Oo oOo 

an po 
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RMOXAB XAB 
v04-000 PRO 


EC 54 OA €E2 


OC AS 5 
09 13 

> 2 & 
7E 6& 7D 
FF6F 30 

50 O08 AD 01 Al 
09 13 

55 SE 00 
7E 66 7D 
FFS 31 

05 


pe] 
POPOPODINIPIPINYNIPYNININPINININININININYNINIPIPONININININININIPONPoNopopopopopoponynd ae 


COOOCOCOOCOOSOCOSOSGCOOCSCOOCOCOCCOOCOOOCOO OOO GOOOOOOOOOOO 
NMMMMMMMMMMMMoOOOCOCVTVVVTVIVTVIVTVTVIVIVTVVCVVT9V—C0C0007"°9U0"U9 


wowowowowowowowoovono 
CoN NNN 
—SOVOWONOULSWwN— 


OUTINES 16-SEP-1986 00:41:40 VAX/VMS Macro v04-00 ° 2 
green land sorsaicy RMOX age 9, 


RMS.SRCJRMOXAB.MAR; 1 


* ++ 
XABCLSPRO: Process the pro xab for $close 
; checks for default uic (i.e., 0) and if found then don't process uic 


also check for default pro (i.e., -1 = mo access to anyone), and if found 
don't touch the protection 


° 
. 
a 
o 
° 
. 
a 
. 
° 
. 
e 
2 
& 
‘oe 
° 


XABCLSPRO: 
BBSS #XBCSC_CLSPRO,R4,ERRIMX_BR1 ; flag xab seen, error 


: if already one 
: handle uic 
TSTL — XABSL_UIC(R3) s uic = 0? 
BEQL hy ; branch if yes 
(S 
| 
| 


; point to attr. List entry on stack 
; create 8 bytes on stack 


~ZD 
uw 
Sete tee 


: for uic attribute entry 


BSBW VIC ; specify uic write 


9 10$: 


e 
« process pro 


ADDW3 2) heed PRO? A is pro spec = -1? 


branch if so 


SP,R5 : point to attr. List entry on stack 
MOVQ (SP) ,-(SP) ; create 8 free bytes on stack 
20$ pee PRO ; gO process protection 


F 14 
RMOXAB XAB PROCESSING ROUTINES 16-SEP-1984 00:41:4 AX/VMS Macro v04-00 
v04-000 PRO XAB ROUTINES ioe yi 8:55:29 LRMS. SRCTRMOXAS MARS 1 
F 983 ;++ 
F 984 ; KABENTPRO: process the protection xab for the directory ‘‘enter’’ which 
F 985 ; occurs Gucing an Senter or a Srename operation. Currently, the only 
: 9 § ; thing to do is to pass the xab$v_propagate bit on to the tile system. 
F 3 8 Pian 
F 9 
F 990 XABENTPRO: 
C9 54 1D E2 F 991 BBSS #XBCSC_ENTPRO,R4,ERRIMX_BR1 ; only allow 1 xabpro 
F 936 ASSUME XAB$V_PROPAGATE §9 0 
06 0B AS «=6E9 (OCF? 899 BLBC XABSB_PROT_OPT(R5) ,20$ ; skip if propagate not set 
8 FB 994 SSB #F 1B$0_PROPAGATE,- ; set propagate bit in fib 
FB 995 FIBSL_STATUS+F WA$T_F IBBUF (R10) 
05 0301 996 20S: RSB 
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ROUTINES 16-SEP-1984 00:41:4 AX/VMS Macro V04-00 Pp 4 Re 
S “SEP-1984 90:35:29 YRMS SRCIRMOXAB MART sci (18) vc 


RMOXAB XAB PROC 
v04-000 ALL XAB 


he 


SOOOSCOCOCOCOCOSCOSGOOOOCOCOOOS SCO OOOSOOOOCSCBDOOOCOOCOCOOOCSOOOOOOOOOCOOCOUOO =z 


PUPP B® BS BB BE BH EAA AAI PINPONINININIDYD 2 2 OO SO 


ow 
cw 
m 


E G 
R N 
2 -SBTTL ALL XAB ROUTINES 
p++ 
3; XABDSPALL: Process allocation xab for $display, part 1 
3 XABOPNALY: Process allocation xab for S$open 
: XABDSPALL: Process allocation xab for $display, part 2 
, ° : sets the alq, deq, bkz, and aop (ctg and cbt bits only) fields of the xab 
0 07 ie. 
0 0 
8 09 ;++ 
0 : entry point for $display to cause the user characteristics bits to 
0 ; be read into the xab. 
0 .-— 
0 XABDSPALL: 
23 a9 O02 91 0 CMPB #IFBSC_IDX,IFBS$B_ORGCASE(R9) ; indexed file? 
05 ig $8 BNEQ 10$ : branch if not 
17 A353 9 0 TSTB XABSB_AID(R3) ; is this the first area id? 
OE ig 08 BNEQ $ ; branch if not 
AF 54 OC €C 10$: BBSS #XBCSC DSPALL,R4,ERRIMX_BR1 ; error is xab already seen 
85 01 860 MOVW #1, (R55+ ; just read 1st byte 
85 03 B80 MOVW  #ATRSC_UCHAR, (R5)+ ; user char. attr. code 
85 08 A3 3 =e MOVAB XABSB_AOP(R3) , (R5)+ : addr for read 


++ 


> entry point for Sopen processing 
XABOPNALL : 


08 AS 44 AA 90 MOVB FWASW_UCHAR(R10),XABSB_AOP(R3) ; set aop byte from user char. 


XABDSPALL1: 
ASSUME FCHSV_CONTIG £0 XABSV_CTG 
ASSUME FCHSVICONTIGB £0 XABSV~CBT 
08 AS «SF BF BA BICB2 #255 \ <XABSM_CTG!XABSM_CBT>,XABSB_AOP(R3) ; clear other bits 
2309 02 91 CMPB = #IFBSC_IDX, IFB$B_ORGCASE(R9) ; indexed file? 
F 13 BEQL IDXRET : branch if indexed 
14 A362 AD 80 MOVW § IFBSW_DEQ(R9) .XABSW_DEQ(R3); set deq 
16 Ad Ag so 90 MOVB  IFBS$B~BKS(R9) ,XABSB_BKZ(R3); set bkz 
10 A3 A 0 fe TAL: nese IFBSL_HBK(R9) ,XABSL_ALQ(R ); set alq 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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9 
1 
9 
1 
0 
1 


VIN — 


+4 
XABCREALL1: 
XABCREALL2: 


Process allocation XAB for area 0 only, 
when file created. 
whose address must be inr 


SrSEP-1986 terd2 


9 Aa Macro V04-00 


24 
74 RMS .SRCIRMOXAB.MAR; 1 


Process allocation xab for $create, part 1 
Process allocation xab for $create, part 2 


since called by RMSCREATECOM 


Uses the allocation xab parameters to set up the FIB, 


XABCREALL1: 
BBSS #XBCS$C 5 Anal 3; set alloc XAB found 
TSTB = XABSB_AID(R3) : area 0? 
BNEQ 50$ i; branch if not (do not process) 
PUSHL R6 ; save fib address 
MOVL R6,R1 3; copy it tor 
MOVL R3,R6 ; xab address to r6 
BSBW = RMS$SET_XABALL : set up fib from xab 
MOVL (SP)+,R6 : restore fib addr 
BLBC 0,608 : branch if bad values 
BBC #F [BSV_ALCONB,FIBS$W_EXCTL(R6),20$ ; branch if not cbt 
BBCS $#FCHS$V-CONTIGB,FWAS@ UCHAR(R10) ,50$ ; set cbt file attr. & branch 
BBC #F IBSV"ALCON, F IBSW_ERCTL(R6),50$ ; branch if not ctg_ 
BISB2 #laFCHSV_CONTIG,FWASW_UCHAR(R10) : set ctg file attribute 
50$: RSB 
BRW STVRSB ; load stv with AID number and return 


; xabcreall2 routine to process filling in of alq field with actual 
6 


; first extent size on $create. 


KABCREALL2: ‘ : 
CMPB #IFBSC_IDX,IFBSB_ORGCASE(R9) ; indexed file? 
BNEQ 5$ ; branch if _not 
TSTB XABSB_AID(R3) : first one? 
BEQL 5$ : branch if so 
RSB ; return 
BRB SETALQ 


ee 


mo 
—Dz 
ro 
co 
cn 


ow 
awn 


I 14 
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- ROUTINE TO HANDLE ALLOC XA = 3EP=| 98e MBibaia9 LRMS SRCTRMOXAB. MAR; 1 ” 5 


7 
7 
$ 
z5 


-SBTTL RMSSETALLOC = ROUTINE TO HANDLE ALLOC XAB FOR SEQ. & REL. F.O. 


+ 


ile organizations. 
XABCREALLO: routine called by xab_scan if an allocation xab is found 
if an allocation xab is found, it is checked for defining area 0 only and 
it is used to provide the alq, deq, and bks fields, these being copied to 
the fab for Later processing. placement information is processed when the 
file creation is actually done. 


the entire xab chain is checked for validity. 


Sete Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Sete 


CREXABO_ARGS: 


00 04 20 14 -BYTE XABSC_ALL,XABSC_ALLLEN,XBCS$C_CREALLO,0 
RMSSETALLOC:: 
5C FO AF 43 MOVAB CREXABO_ARGS,AP ; set arg list addr 
FCA9 «3 BSBW XAB_SCAN 3 gO scan xab chain 


t use fab deq field to set both deq and run-time deq fields of ifab 


14 B0 MOVW  FABSW_DEQ(R8),1 
4C AD 14 AB 80 MOVW — FABSW_DEQ(RB) «I 


p++ 
; xabcreallO routine called by xab_scan if an allocation xab is found 


: verify this is the only allocation xab and that its aid = 0. 
3 copy the alq, deq, and bkz fields from the xab to the fab. 


XABCREALLO: 
CMPB 


WI.NAIAINI ANIA AAAI NIANAIAINI NNW AIAINI NINN NIAINIANIAILAINI AINA 
OO O000 00000000009 09 69 09 09 09 09 09 09098 SINISE NNN 


Docrorororororororanornwnw—e NNNNNNFOQOONMAOAAOAOAMOOOOOOAOOOAO 


‘ 
RMSSETALLOC: AY page the allocation xab for the sequential and relative 


> 

co 
CGOOOSOSGOOOOSOOCOOSOOOCOCOOCCO COCO OCOCOCOCOC OOOO OCOOCO OOOO OOOOOOOOOOOOoOOoOO 
ee ee ee ee a ee a ae ee ee ee ee ee ee ee me ee a ee eh a a a dd 
CONAUSWN OS OOO NAMES WN 9 OOO NAME WN $9 ODNAUES WN @OOONAUE WN "OOONAOULSWwN DB 


MAAN AA BB EEE BB BWW inononononononononony) 2 2 3 2D OOOO 


23 a9 02 = = 91 #IFBSC_IDX,IFBSB_ORGCASE(R9); indexed file? 
05 i BNEQ 5$ ; branch if not 
17 A359 TSTB XABSB_AID(R3) ; is this the first area id? 
se 1 BNEQ 10$ ;_branch if not 
25 54 4 3 Hf 5$ BBSS eueere FPG ALL O.R4 -ERRIAK, BR 3; error is all. xab already seen 
17 A3 Al TSTB XAB$B_AID(R3) ; aid = 0? 
23 3 AS BNEQ RRAID ;_branch if not (error) 
10 a8 10 A3 OD A6 MOVL § XABSL_ALQ(R3),FABSL_ALQ(R8) ; copy alq to fab 
14 AB O14 - 3} MOVW XABSW_DEQ(R35) ,FABSW_DEQ(R8) ; and deq 
16 A 1 CMPB XABSB_BKZ(R35) ,- 
3F 38 #BKTSC_MAXBKTS1Z ; bkz in range? 
1A 1A 0384 BGTRU ERRBK ;_ branch if not 
3E AB «2016 AS 900386 OVB  XABS$B_BKZ(R3),FABSB_BKS(R8) ; and bks 
ASSUME FABSC_:EQ EQ 0 


x XAB PROCESSING ROUTINES EP-19 74 AX/VMS Macro V04-00 P 
v04 RMSSETALLOC = ROUTINE TO HANDLE ALLOC XA i tt 9? +33: 29 FRMs. SRCJRMOXAB.MAR; 1 one 34) 
23 a9 9 BB 115 TSTB FBSB_ORGCASE(R9) ; i i 
Of 33 O8BE 1100 DN GE | a none Seek i we 
SE AD 6A 9 C 138) MOVB 1nBS8 _BKZ(R3), 1FBSB _axs cho) 3 set iftp” bks from xab bkz 
0 cs «(11 ¢ 10$: RSB 3; continue xab scan for validity 
C6 116 
ae 
8 C 1166 ERRIMX_BR: 
FD38 = 31 : 1180 BRW ERRIMX 3 extended branch to handle error 
C9 1169 ; 
C9 1109 3; handle invalid aid field error (not = 0) 
«S yyg2 
8 C9 1138 ERRAID: 
03C9 1174 RMSERRAID:: 
p30? 1175 RMSERR AID 
a: oe cf 1126 BRB STVRSB 3; load stv with AID number and return 
O3p0 1178 ; 
03D0 1179 : handle invalid bkz field error 
0300 1139 3 
$83 1B enmoc 
0300 1188 ” RMSERR BKZ 
7 DS 0305 1184 STVRSB: TSTL (SP remove return PC from stack 
OC A8 17 A 9A 0307 1185 MOVZBL XABSB AID(R3) , FABSL_ sTv(R8) 3; set AID number in STV 
05 O30C 1186 RSB 3; return 
0300 1187 
03DD 1188 


K 14 
XAB PROCESSING ROUTINES 16*SEP=1986 00:41:40 VAX/VMS Macro v04-00 Pa 
OUTINES Be 99:53:09 oe 38) 


ING 
JNL XAB ROUTINE -SEP-1984 16 RMS.SRCJRMOXAB.MAR; 1 
+4 1130 Be -SBTTL JNL XAB ROUTINES 
Dp 119¢ ; KABCREJNL rouine called if a journal XAB is found for a SCREATE 
DD 1194 ; Attribute List entry is made to set journaling attributes. FWA is filled 
44 1332 : in with journal names. IFB is filled in with journaling attributes. 
DD 1199 ie 
DD 1198 
8 DD 1199 XABCREJNL: 
e554 15 €2 44 ! 4 BBSS #XBCSC_CREJNL,R4,ERRIMX_BR ; flag XAB seen, error 
6 ei 1 03 s®eJNL te peste eeaearery code to tie off journaling (NOP to restore support) 
03E1 120 RMSERR EN s**JNL** return error if XAB seen 
FDID = 31 Oae8 1204 BRW CLNSTK s**JNL*® and exit 
bee 1205 ;**JNL** end temporary code to tie off journaling 
O3E9 1 06 
S369 1508 Set up journal flags attribut to FB 
3 et up journa ags attribute, co ) 
oeee 1209 ; . . ‘e 
O3E9 1210 
O3E9 1211 ASSUME XABSV_ONLY_RU €£Q IFBSV_ONLY_RU 
O39 1 le ASSUME XABSV~RU EQ IFBSV-RU 
O3E9 121 ASSUME XABS$V_BI EQ IFB$V_BI 
O3E9 1214 ASSUME XABS$V~AI EQ IFBSV-AI 
O3E9 1215 ASSUME XABSV~AT EQ IFBSV~AT 
O39 16 ASSUME XABSVINEVER_RU EQ IFBS$V=NEVER_RU 
00A0 C9 08 AS) 90 O3E9 1218 MOVB XABSW_JOP(R3), IFB$B_JNLFLG(R9) 3 copy journaing bits 
03 12 OSEF 1219 BNEQ 5$ ; continue if any 
OO9F 31 O3F1 1220 BRW 40$ 3; branch otherwise 
O3F4 1221 
Q3F4 1 ¢ , . : 
Oaee 1 § 3 Make sure that the RU attributes don't conflict ‘ 
O3F4 1224 ; 
O3F4 1225 58: 
07 08 AS «600)=Cs« EOs«OO3F4 «(1 $$ BBS #XABSV_ONLY_RU,XABSW_JOP(R3) ,6$ ; Make sure that 1 
07 08 AS) «=(05~s«éE0 39 1 BBS #XABSV_NEVER_RU,XABSQ_JOP(R35 ,7$ i and only 1 of 
be 11 FE 1228 BRB 9$ 3; the RU bits are set 
07 08 A3 5 €0 0400 1229 6$: BBS #XABSV_NEVER_RU,XABSW_JOP(R3) ,8$ 
0208 AS. «(01_—Ss«E0 040 1230 7$: BBS #XABSV_RU, XABSW_JOP(R3) ,8$ 
03 sii He : 1 BRB +} 3 
FCDA 31 Oe0¢ ! 5 8$: BRW ERR_CONFRU ; More than 1 set 
Rene 1235 9$: 
85 01 40F 1 $ MOVW = #1, (R5) + 3 set one byte attr 
85 1D 60 218 1 MOVW #ATRSC_JOURNAL, (R5)+ 3; set journaling attr 
85 O0A0 C9 ai; ! 3 MOVAB IFB$B_JNLFLG(R9) , (R5)+ 3; set attr address 
tia 13a): ( izece journet to FWA 
3 Opy appropritate journal names to 
SE is ae oy 
007C *! BB Q41A 1244 PUSHR #*M<R2,R3,R4,R5,R6> : save registers 
21 OOAO C9 ¢ ¥ 41E 1245 BBC #1FBSV_BI,1FRSB JNLFLG(R9) ,10$ ; branch if no BI 
56 OCA A 0424 1246 MOVZBL XAB$B_BIS(R3) ,RE : get lenth 
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14 
‘ 16-SEP-1984 00:41:4 
“SEP=-1984 16:22:4 


B MODE(R9) .R6,@XABSL_BIA(R3) 
XABSL_BIA(R3) ,#*A/ /,- 
$S_BIJNLN, FWAST BIUNLN(R10) 
6. FuASQ_BIUNL (RT ) 


V_A1, IFB$B_JNLFLG(R9) , 20$ 
RiStR3) Rb 


MODE (R9) ,R6,@XABSL_AIA(R3) 
AB_BRJ 

XABSL_AIA(R3) ,#*A/ /,- 
$S_AIJNLN, FWA$T_AIJNLN(R10) 
6, FWASQ_ALJNL (RTO) 


$ 
X 
a 
h 
R 
P) 
BS 
$8_ 
$B 
X 
a 
A 
R 


P),R3 


0 
§ 
FBSV_AT, IFBSB_JNLFLG(R9) , 30$ 
BSB_ATS(RS) ,RE 


1FBsB MODE (R9) ,R6,@XABSL_ATA(R3) 
R6,aXABSL_ATA(R3) ,#*A/ /,- 
#FWASS_ATINLN, FWA$T_ATJNLN(R10) 
RO,R6,FWASQ_ATJNL (RTO) 


#*M<R2,R3,R4,R5,RO> 


Ux. LVDASVIM-wxBe £VDBVwMe-— 


aaa canada 
CLNSTK 


ERRIMX 


Copy journaling bits 


#XBCSC_OPNJNL.R4,ERRIMX_BRJ 


: fla 
#*C<XACSM_ONLY RU! XABSM_RU! XABSM_AI!X 
IFBSB_JNLFLG(R9) ,XABSW_JOP(R3) ; "copy journaling bits 


AX/VMS Macro V04-00 
RMS .SRCJRMOXAB.MAR; 1 


branch if zero 
uff 
h if cant read 


++ 
XABOPNJNL routine called if journal XAB is found on SOPEN or S$DISPLAY, 
called after file is accessed. 


XAB filled in from IFB and FWA 


XAB see 
$M_BI'X 


branch if no Al 
e bu 
ch if cant read 


Restore XAB addr 
branch if no AT 


ranch if cant read 


restore registers 


restore registers 
indicate XAB error 


; extended branch 


error 
ABSM_AT! XABSM_NEVER_RU 


M14 


XAB PROCESSING ROUTINES 16-SEP-1984 41:4 AX/VMS Macro v04-00 Page 30 
JNL XAB ROUTINES eto 9 99355509 FRMS. SRCIRMOXAS MARS 1 . 3) 
1 4AF 1304 BNEQ 5$ 
00s if 4B1 1305 BRW 40$ 3; branch if none 
484 1 $ 
tbe 1308 | Copy journal Length 
: opy journal names, name Lengths 
at nl 
007¢ 8F BB 0484 1311 5$: PUSHR #*M<R2,R3,R4,R5,R6> 3; save registers 
28 oe 09 0 } 488 1 \¢ #lFBSvV_BI 1FBSB JNLFLG(R9) ,10$ 3; branch if no BI 
OC A A O4BE 131 MOVZBL XAB$B_B1S(R3) ,R2 3 get buffr size 
2 13 04C2 1314 BEQL $ ; branch if no buff 
52 OAA 98 4C 1315 PROBEW IFBSB_MODE(R9) ,.R2,aXABSL_BIA(R3) 3; probe buff 
c8 tr } 18 BEQL ERRXAB_BRJ ; branch on error 
geet ! 18 ASSUME ACES$B_SIZE EQ 0 
56 8EO0 CA 9A geet 1320 MOVZBL FWAST_BIACE(R10) ,R6 ; get ACE size 
6 4 82 0401 1321 SUBB #ACESC_ACCESS,R6 ; calculate BI name size 
OBE4 CA 6 2C 0404 3 § MOVCS R6 FWAST_BIJNLN(R10) ,#*A/ /,R2,@XABSL_BIA(RS) 
53 0 3 DO O4DD 132 MOVL 4(SP), ; Restore XAB addr 
OD AS 56 5 83 Bees 1395 SUBB3 = RO,R6,XABSB_BIL(R3) 3; calculate moved size 
28 OOAO C9 03 fl 04E6 1326 108: BBC #1FBSV_AI,IFBS$B_JNLFLG(R9) ,20$ 3; branch if no Al 
52. 1403 «9A (O4EC 13 7 MOVZBL ¥XABSB_AIS(R3) ,R2 : get buffr size 
22 13 O4FO 1328 BEQL % ; branch if no buff 
18 B63 52 OA AD OD nore 13 9 PROBEW IFBSB_MODE(R9) ,R2,aXABSL_AIA(R3) ; probe buff 
9A 13 O4F8 1330 BEQL 3 branch on error 
56 GBF4 CA QA O4FA 1331 MOVZBL FWAST_AIACE(R10) ,R6 : get ACE size 
04 Se O4FF 1336 SUBB #ACESC_ACCESS,R6 : calculate Al name size 
18 B3 52 20 ae CA 56 C 0502 133 mMOVCS R6 FWAST_AIJNLN(R10) ,#*A/ /,R2,@XABSL_AIA(R3) 
53.06 AE 00 0508 1334 my 4(§P) ,R3 ; Restore XAB addr — 
15 A3 56 50 8&8 Baye ! 3 SUBB3 «RO, R6,XABSB_AIL(R3) ; calculate moved size 
2B 00A0 C9) =—04~S—s«é#E; baie 1 3 20$: BBC #IFBSV_AT, IFBS$B_JNLFLG(R9) ,30$ 3; branch if no AT 
52 1C A 9A OSIA 1338 MOVZBL XABSB_ATS(R3) ,R2 ; get buffr size 
7. os Base 1339 BEQL % ; branch if no buff 
20 B83 52 OA AS OD b 1340 PROBEW SL ESS ODE CRP) RE -SUAGE,_ ATMA) 3; probe buff 
12 05 g 1341 BNEQ 5$ 
F 31. 05 1 4g BRW ERRXAB_BRJ : branch on error 
56 0908 CA 9A O05 1343 25$: MOVZBL FWAST ATACE(R10).R6 ; get ACE size 
56 4 82 05 1344 SUBB #ACESC_ACCESS,R6 s calculate AT name size 
20 B83 52 20 O90C CA 56 2c 5 1345 MOVCS R6 FWAST_ATJNLN(R10) ,#*A/ /,R2,@XABSL_ATA(R3) 
535 O04 A 0 53C 1346 MOVL 4(SP),R ; Restore XAB addr 
1D Ads 556 8 279 ! rt SUBB3 RO,R6,XABSB_ATL(R3) : calculate moved size 
007C 8F BA b2e9 ! rH 30$: POPR #*°M<R2,R3,R4,R5,RO> 3 restore registers 
05 0549 1351 40S: RSB 
054A 1352 
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yos~000 RMSSETEXTRMS = ROUTINE TO HANDLE CONTEXT 5+SEP-1984 8355509 PRMS SRCIRMOXAB MAR: 1 . (34) 
sch } 33 -SBTTL RMSSETEXTRMS = ROUTINE TO HANDLE CONTEXT XAB FOR FAB & RAB 
4A 1 p++ 
Sch : 3 RMSSETEXTRMS: Process the Context XABs for the FAB and RAB on RMS exit 
4A 1359; 

54A 1360 ; if a context xab is found, it is filled in with information from the 

4A 61 ; IFB or IRB, and FAB or RAB, as needed. 

rN } 8 3; the entire xab chain is checked for validity by XAB_SCAN 

S4A 1 9? 3e° 

54A 1 $ 

54A 1367 EXTXAB_ARGS: 

16 3¢ 20 54A 1368 -BYTE XABSC_CXF ,XABSC_CXFLEN, XBCSC_EXTCXF 
054D 1 3 -BYTE 0 
Q54E 1370 
Beck 1371 EXTXABR_ARGS: 
17 54 21 54E 1 2 .BYTE XABSC_CXR,XABSC_CXRLEN, XBCSC_EXTCXR 
0551 137 -—BYTE 0 
0552 1374 
0552 1375 RMSSETEXTRMS:: 
0552 1376 
0552 1377 ASSUME FAB$B_BID EQ RAB$B_BID 
039 1378 ASSUME FABSL~STS EQ RABSL_STS 
03 68 91 «O55 1380 CMPB FABSB_BID(R8) ,AFABSC_BID ; Is the user structure a FAB or RAB? 
OD 12 O555 1381 BNEQ 1 ; Not a FAB, Must be a RAB 
24 AB o 0557 1386 TSTL F ABSL_XAB(R8) 3 any XABs? 
28 13 OS5S5A 138 EQL 40$ : don’t bother checking 
5C DD O55C 1384 PUSHL P 3; save register 
5C ED AF 9E 9325 1385 MOVAB XTXAB_ARGS , AP ; set arg List addr for a FAB 
OB 11 0562 1386 BRB ; Continue = Call XAB_SCAN 
40 AB D5 0504 3 7 10$: TSTL RABSL_XAB(R8) 3 any XABs? 
18 13 0567 1388 BEQL 40$ 3; don't bother checking 
5C DD 0569 1389 PUSHL AP 3 save register 
5C EO AF 9E 0568 1390 MOVAB EXTXABR_ARGS,AP 3; set arg list addr for a RAB 
FABE 30 OS5S6F 1391 20S: BSBW XAB_SCAN 3 go scan xab chain 
5C 8ED0 Bare 1338 POPL AP ; restore register 
08 50 «EB te 139 BLBS RO, 308 ; success 2 
578 1394 SSB #16,R0 3; add facility code on failure 
08 As 50 v0 057¢ 1395 MOVL RO, FABSL_STS(R8) : save failure status 
50 08 AB 00 0580 1 36 30$: MOVL FABSL_STS(R8) ,RO : restore actual status 
05 : 4 1397 40$: B 
5 1398 
0585 1399 

5 : 1400 ; 

5 1401 ; Fill in the contents of the FAB associated Context XAB, 

: : 1408 ; on exit from the RMS service. 

2 5 1 : 3; (R3) = address of the context XAB, already probed. | 

5 3 14 $ ; If this is a restart operation, clear the restart bit and copy the. 

5 1407 ; bookkeeping bits to the IFAB (and anything else that has to be copied 

5 14 3 3; to the IFAB last). For optimization's sake, do not copy context into 

5 1409 ; KAB for a restart. 

5 1410 ; | 
| 
| 
| 
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XAB PROCESSING ROUTINES 16-SEP-1984 00:41:4 AX/VMS Macro v04-00 Pa om 
RMSSETEXTRMS = ROUTINE TO HANDLE CONTEXT iets 90355549 LRMS SRCIRMOXAB MARS 1 = (3%) 
2 141 
1412 XABEXTCKF: 
59 3 2 141 TSTL Rg 3; Is this a structureless exit? 
046 «1 286 Voie BEQL 2$ 3 Yes - Skip bit clear 
: 4 1218 ASSUME IRBSV_RESTART €Q IFBSV_RESTART 
4369 3B €4 : ; 1213 BBSC #IRBSV_RESTART, (RI) ,50$ ; Clear restart bit and return 
e 1 9 ASSUME XABSL_CXFSTS+4 £0 XABSL_CXFS1V 
08 AB 7D OS 1422 28: mMOva FABSL_STS(R8) ,XABSL_CXFSTS(R3) ; copy STS/STV fields. 
yi $8 A8 860 83 2 14 : MOVW FABSW_IFI(R8) ,XABSW-CXFIFI(R3)_ ; sony over IFI. 
AAs 01 90 0597 14 4 MOVB  #XABST_CXT_VER1,XABSB_CXFVER(R3) ; Record the version. 
0598 14 § : If there is not an internal RMS structure available, this exit is 
0598 1427 ; probably an error, or a close. Does not make sense to copy oe 
Fa 12 8 ; else into the context XAB. (cannot copy most things due to no structure) 
59 pS 0598 1430 ° TSTL = RO : Is this a structureless ex 
36 613 «©059D «(1431 BEQL EX_NOIFB : Yes, No IFAB available. 
14 A3. 04 A9 DO O59F 1038 MOVL IFBSL_BKPBITS(R9) ,XABSL_CXFBKP(R3) ; Copy bookkeeping bits 
20 AS 4C AD) BO O5A4 «143 MOVW IFBSW_RTDEQ(R9) ,XABSW_CRFDEQ(R3) ; Run time Default Extend Qu 
$$ AS 22 A9 90 O5A9 1434 MOVB IFB$B_FAC(R9) ,XABSB_CRFFAC(R3) 3; File Access 
235 A3 4E AD 90 Beas 1435 MOV IFB$B_SHR(R9) ,XABSB_CXFSHR(R3) : Share 
50 23 A9 9A 0583 1436 MOVZBL IFBSB_ORGCASE(R9), 3 File Organization 
27 AS 550—«04 8 0587 1437 ASHL #4,R0,XABSB_CXFORG(R3) 3; Shift over for XAB 
28 AS) «664 AD «=6BO OCOSBC OC1438 MOVW IF B$W_GBC(R9) ,XABSW CXFGBC(R3) ; Global Buffer count 
50 38 A9 D0 O5C1 1439 MOVL IFBSL-FWA_PTR(R9) ,RO : Get FWA address 
50 1480 9€ O5C5S 1440 MOVAB a@FWASG FIB+4(R0),RO 3; Get ptr to FIB in FWA 
2A AS 03 AO 90 O5C9 1441 MOVB FIB$B_QSIZE(RO) ,XABSB_CXFRTV(R3) : Copy Retrieval Window from 
ee | Back 1226 BRB EX_NOTFB 3 return 
04 Ad 14 A300 0300 Vee 50$: MOVL XABSL_CXFBKP(R3), IFBSL_BKPBITS(R9) ; transfer bookkeeping bits 
0505 1446 EXx_NOIFB: 
05 0505 1447 RSB ; Return 
0506 1448 
0506 1449 ; 
0506 1450; Fill in the contents of the RAB associated Context XAB. 
0506 1451 ; on_exit from the RMS service. 
8208 1426 ; (R3) = address of the context XAB, already probed. 
B28 1328 : For optimization's sake, do not copy context into the XAB for a restart | 
506 1455 ; operation. 
0506 1456 ; 
bebe 1457 
506 1628 XABEXTCXR: 
59 =O bee 145 TSTL R9 ; Is this a structureless exit? 
04 «+13 8208 1709 BEQL 2$ 3; Yes - Skip bit clear. 
B2dA 1408 ASSUME IRBSV_RESTART €Q IFBSV_RESTART 
37 69 «6 3BOCéSG SDA 138e BBSC #IRBSV_RESTART, (RY) ,30$ ; Clear restart bit while noting res 
5DE 1096 ASSUME XABSL_CXRSTS+4 €EQ XABSL_CXRSTV 
5DE 146 
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RMOXAB XAB PROCESSING ROUTINES 16-SEP-1984 00:41:4 AX/VMS Macro V04-00 Pa 3 | RM 
v04-000 RMSSETEXTRAS = ROUTINE TO HANDLE CONTEXT ety 7 90:33:29 ERMS SRCTRMOXAS MART ™ (3%) | Ta 
08 A 08 A 7D 2$: Mova RABSL_STS(RB) ,XABSL_CXRSTS(R3) = copy STS/STV fields. 
08 Ag 88 AB 80 MOVW ties teTS XABSW ERS ee tre) : pe over . | 
1A A301 MOVB #XABSC_CXT_VER1,XABSB_CXRVER(R3) ; Record version | 
If there is not an internal RMS structure available, this exit is 


probably an error, or a disconnect. Does not make sense to copy anything 
else into the context XAB (cannot copy some things due to no struture). 


59 «~S TSTL R9 ; Is this a structureless ex 
0 12 BNEQ 208 3; No, continue 
00c 31 BRW EX_NOIRB 3; Yes, No IRAB available. 
14 A 0% Ag g8 20$ MOVL IRBS$L_BKPBITS(R9) ,XABSL_CXRBKP(R3) ; Copy gorayese tne bits 
21 A 5 Ag MOVB IRBSB-MBC(R9) ,XAB$B_CXRMBC(R3) 3; Copy Multi-block cnt 
20 A 5c Ad sso 90 MOVB IRBS$B_MBF (RI) ,XAB$SB_CXRMBF (R3) :; Copy Multi-buffer cnt 
CASE  TYPE=8,SRC=IFB3B_ORGCASE (R10) ,- : Case on organization 
DISPLIST=<EX_SEQ7EX_REL,EX_ISAM> : copy different stuff 
RMSERR ORG ; Organization error 
FAF1 31 BRW CLNSTK ; Remove return PC from 
: 3 stack and return. 
: Finish coping the last of the items for SEQ and REL restart connert. 
Sos: 
40 A9 24 A300 MOVL $XABSL_CXRVBN(R3), IRB$L_NRP_VBN(R9) ; copy NRP information - 
44 AY 28 AS’ «BO MOVW XABSW_CXROFF(R3), IRBSW_NRP_OFF (RI) $ 6UV and offset 
04 A9 14 AS 00 MOVL XABSL-CXRBKP(R3) , IRB$L_BKPBITS(R9) 3; copy bookkeeping bits 
OO8F 31 BRW EX_NOTRB ; branch to return 
: For each file organization, need to save different NRP context 
: For Sequential and Relative files, copy the same stuff 
EXx_SEQ: : Sequential files 
EX_REL: ; Relative files 
24 A353 40 A9 00 MOVL IRBS$L_NRP_VBN(R9) , XABSL_CXRVBN(R3) 3 copy nrp vbn 
28 A 44 AJ BO MOVW IRB$W_NRP_OFF(R9) ,XABSW_CXROFF (R35) 3; copy nrp offset 
0082 31 BRW EX_NOTRB 


The 4 pe pg will copy all ISAM specific current and next record 
positioning information to the context XAB. 


Copy the buffer version number into the XAB for restart comparison. 
This version number indicates what the attached context buffer looks 
dig + If He | buffer changes in internal character, this version needs 
o be updated. 

Note: that the RFA's are copied from the IRAB to the context block. 
The “ie order word of the id field of the RFA is forced to Zero. 

This high order word is checked to be zero on restart. 


Probe the user's key buffer and write counted ascii es | strings 

into it. The buffer will contain the size of the key followed by 
keybuffer 1, then, the size of the | followed by keybuffer 6. The 
size field will be verified on restart to all match with the key size 
kept in the XAB context block. 


X_ISAM: ; Indexed files 


0 
" 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
: 


BEEP RPP P PEEP PPPS NE HD MMIII NING AWOMOOOOOO@Ow!,; 
a ea a el a ee a a a el ee a le ee ee ee ee ee a ed 
PUPP SPUD SUPT BS ES BS BS PPP PPP PPP PPP PPP PPP PPP PEE 
ROPIPIMIINS —  $DOODOODO9O000 000 OO OOO 000000 09 09 09 09 090909 SI NIN NINN NOO 
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NNN AANA AIAN IAAI IP DIPONINININIPYPINID) 2 2 OP MOO TM THT THMMMMMMmmmos 


D 15 


XAB PROCESSING ROUTINES 16-SEP-1984 00:41:4 AX/VMS Macro V04-00 Page 34 | 
RMSSETEXTRMS = ROUTINE TO HANDLE CONTEXT ey 7 90:53:29 CAMS SRCIRMOXAB MARS 1 . (33), 
10 AS. 046 1C~ O01 fe oy 1525 INSV #XABSC_CXB_VER1 ,AXABSV_CXRBVER ,A#XABSS_CXRBVER ,XABSL_CXRCOP(R3) 
CA OAC C9 g 635A 1 § MOVL [RBSL_POS_DBN(R9) .XABSC CXRPOSO(R3) ; Primary record NRP RFA 
OA OBA C9 5 640 1 MOVZWL IRBSW_POS_ID(R9) ,XABSW_CXRPOS4(R3) 3 Primary record NRP RFA 
GA pag C9 4 646 15 8 MOVL 1 RBSLCUR-VBN(R9S - XABSC CXRCURO(R3) 3; Primary record RFA 
8A 0B8 C9 C Q064C 15 MOVZWL IRBSW-CUR-ID(R9) ,XABSW_CXRCURS(R3) $ ptseers record RFA 
CA 00B4 C9 be 65 1 0 OVL IRB$L~SIDR_VBN(R9) , XABSL CXRSIDO(R3) ; SIDR RFA 
40 A Ope C9 € 0658 1531 MOVZWL IRBSW-SIDR-ID(R9) ,XABSW_CXRSID4(R3) 3; SIDR RFA 
4G A 0cO C9 8° 65— 15 ¢ OVW IRBSW-CUR_ COUNT (R9) , XABSW CXRCNT(R3) ; SIDR array count | 
46 A 00cS C9 664 15 OvB IRB$B_CUR_KREF (RY) ,XABSB_CXRKREF (R3) : Current key of ref. 
50 0084 CA 3C 066A 1534 MOVZWL IF BSW7KBUFSZ(R10) ,RO : Key buffer size | 
OOFF 8F 50 861 oGF 1535 CMPW RO,#255 : find out if key size max 
04 18 674 13 6 BLEQU «5 f ; key sz less than 255 
50 FF 8F 9 676 1 MOVB #255,R0 ; key size is max. 
47 A3 29 90 067A 1538 50S: MOVB RO, XABS$B_CXRKLEN(R3) 5 ber buffer size 
51 48 A3 00 O67E 1539 MOVL  XABSL_CXRBUF(R3) ,R1 : (rl) = user buffer 
61 22 AS OA AD OD beg 1540 PROBEW IRBSB_MODE(R9) ,XABSW_CXRBFZ(R3),(R1) ; Probe writability 
6F 13 06 1541 EQL XABER ; buffer not okay for use 
0200 8F 22 A3_ 81 been 1366 CMPW XABSW_CXRBFZ(R3) , #XABSC_CXRBLEN ; Make sure long enough 
67 1F 0690 154 BLSSU XABERK ; must be at least that 
0692 1544; 
0692 1545 ; (RO) = key size 
0692 1546 ; (R1) = User key buffer address. : 
0692 1547 ; Save the input registers for the MOVC#. First move keybuffer 1, put in 
0692 1548; the hey size, then after Sameut ine the size of keybuffer 6, move in that 
0692 1363 3 Cckey. ill the remaining part of the user key buffer with zeros. 
0068 8F BB 0692 1551 PUSHR #*M<R3,R5,R6> ; save registers for MOVC 
56 50 00 0696 1336 MOVL ° : save the Length there 
81 50 90 0699 155 MOVB RO,(R1)+ : Move keybuf size, inc poin 
61 60 B89 50 28 069C 1554 MOVC3 RO,@IRBSL_KEYBUF (R9),(R1) ; Move keybuffer 1 
83 56 90 Q6A1 1555 MOVB R6,(R3)+ ; Move in key size 
50 56 05 CS Q6A& 1556 MULL3 #5,R6,RO 3 compute addr of key buffer 
5 60 AY CO QO6A8 1557 ADDL IRBSL_KEYBUF (R9) ,RO ; add in base address 
63 56 00 60 56 2C O6AC 1558 MOVCS 6, (RO) ,#0,R6, (RS) ; move key, fill with O's 
0068 8F BA 06B2 1559 POPR #*M<R3,R5,R6> 3; restore registers 
0686 1560 ; 
0686 1561 EX_NOIRB: 
05 0686 1396 RSB ; Return 
0687 156 
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RMOXAB XAB PROCESSING ROUTINES -SEP-19 0:41:4 AX/VMS Macro V04-00 Pa 5 RM 
v04-000 RMSOPNCREXAB = ROUTINE TO RESTART OPEN O Bases 90: 33:29 YAMS SRCIRMOKAB MARS 1 - (2) va 
et 1363 ~SBTTL RMSOPNCREXAB = ROUTINE TO RESTART OPEN OR CREATE 
7 1567 ;+4+ 
$87 i 3; RMSOPNCREXAB: Process restart operation for Open or Create. 
687 1570: 
a68 1571 ; if_the restart bit is set, use the information from the 
pea? 1326 3; XABCXF to fill in the FAB or IFB as needed for restart. 
O67 130% ; the entire xab chain is checked for validity by XAB_SCAN 
cn a 
687 1578 OPNCRE_ARGS: 
18 3C¢ 0 0687 1579 -BYTE XABSC_CXF,XABSC_CXFLEN,XBCS$C_OPNCXF 
oe anlage 
0688 1386 RMSOPNCREXAB: : 
5C FO AF 9E pene 158 MOVAB OPNCRE_ARGS,AP 3; Set arg list addr 
F96E 31 O6BF 1584 BRW XAB_SCAN ; Look for context X@B. 
at 
06C 1389 : Check for Restart bit in XABCXF (FAB associated Context XAB). 
06C2 1588 ; If restart (set), then verify input and place into FAB or IFB as 
bee 1383 3 needed for restart. 
06C2 1591 KABOPNCXF: 
2—E 10 AS «00 = =«€1 «=06C 1336 BBC #XABSV_CXFRST,XABSL_CXFCOP(R3), RET ;Check to see if restart 
2 546 «©618~=€6—E2 «2(06C7 «(159 BBSS #XBCS$C_OPNCXF ,R4,XABERR Check uniqueness of XABCXF 
01 1A AS. 91 O6CB 1594 CMPB XAB$B CXFVER(R3). AMXABSC_CXT _VER1- 3; Check version of context block 
28 12 O6CF 1595 BNEQ XABERR ; “error if not version 1 
0601 1596 SSB #1FBSV_RESTART, (R9) 3; Remember restart in the IFAB 
02 A8& 18 A3 89 06D5 1597 MOVW XAB BSh CXFIFICRS), FABSW_IFI(R8) ; — IFI to FAB 
a iseey 1238 BEQL XABERR 3; Restart error if IFI = zero. 
o6p¢ 1600 : Move saved context into FAB for restart operation. 
14 A8 20 A3 BO 06DC 1606 : MOVW XABSW_ cur peeshe? - an etd peoine; : tleged he quantity 
16 A8 $$ AS 90 06E1 160 MOVB XABSB_CXFFAC(R3), —FAC(R8) ; File access 
17 AB «623 AS) 90 06E6 1604 MOVB XABSB_CXFSHR(R3), ABS _5 ARCRB) : File Sharing bits 
48 AB 28 AS BO O6EB 1605 MOVW XABSW oper eG Ree ot ee _GBC(R8) ; Global buffer count 
1C A8& 2A AS 90 bere 1606 MOVB XABSB_ CXFRTV(RS),FABSB_RTV(R8) ; Retrieval window 
pore 1608 RET: RMSSUC 3; Indicate success 
0S O6F8 160 RSB ; And return 
ene 
O6F9 19i¢ " RMSERR XAB ; declare XAB error 
FAOS 31 bere 1217 BRw CLNSTK 3 remove return pc from stack and RSB 
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~-SBTTL RMSCONNXAB = ROUTINE TO RESTART CONNECT 


R 
OU 


3+ 
3 RMSCONNXAB: Process restart operation for connect 


if the restart bit is set, use the information from the 
XABCXR to fill in the RAB or IRB as needed for restart. 
the entire xab chain is checked for validity by XAB_SCAN 
CONNXAB_ARGS: 
BYTE 
BYTE 
RMSCONNXAB: : 
MOVAB 
BRW 


XABSC_CXR, XABSC_CXRLEN, XBCSC_CONNCXR 


CONNXAB_ARGS ,AP ; Set arg List addr 
XAB_SCAN ; Look for context XAB. 


Check for Restart bit in XABCXR (RAB associated Context XAB). 
If restart (set), then verify input and place into RAB or IRB as 
needed for restart. 


ABCONNCXR: 
BBC 


» 


G 
R 
1 
| 
{ 
0 
1 
4 
5 
8 
9 
0 
H 
i 
35 
36 
3? 
38 
39 
40 
rf 
i 
44 
45 
46 
47 
48 
49 
50 
3] 
‘ 
54 
22 
i$ 
58 
59 
60 
61 


a a kk a a a a kk dd dd dd 
PERE AAAAAA AAA AAPA A AAA AAA AAA AAA AAA AAA AAA AAAAAAAO 


3310 A3 OO €1 #XABSV_CXRRST,XABSL_CXRCOP(R3),50$ ;Check to see if restart 
3354 19 €E2 BBSS #XBC$C_CONNCXR,R4, ; Check uniqueness of XABCXR 
01° 1A a3 «(97 CMPB = XABSB_CXRVER(RS) ,AXABSC_CXT_VER1 ; verify version 
2D Ss 12 BNEQ 60$ 3; Error on version 
$SB #IRBSV_RESTART, (R9) 3; Remember restart in the IRAB 
00018001 8F 08 Ad 01 F CMPL XABSL_CXRSTS (RS) ,#RMSS_STALL 3; Verify that status is okay 
| oF 7 BEQL 3; Restart error 
00018009 8F 08 A3 D1 9 CMPL XABSL_CXRSTS(R3) ,#RMS$S_PENDING ; Make sure Async 1/0 Finished 
1. ue 1 BEQL 3; Restart error 
02 a8 18 A3 80 3 MOVW  § XABSW_CXRISI(R3),RABSW_ISI(R8) ; Move ISI to RAB 
of 1 8 BEQL 60$ ; Restart error if ISI = zero. 
37 AS 1 A 90 A MOVB XABSB_CXRMBC(R3),RABSB_MBC(R8) ; Copy back the Multi-block cnt 
36 AB 26020 AS 9 4 MOVB XABSB_CXRMBF(R3),RABSB_MBF(R8) ; copy back the multi-buffer cnt 
4 50$: RMSSUC : Indicate success 
05 7 RSB 3; And return 
60$: RMSERR XAB 3; declare XAB error 
F9B6=— ss 31 D BRW CLNSTK 3; remove return pc from stack and RSB 
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XCONNOS:: 
This routine is used to recreate the ISAM stream NRP context. 


At this point, I KNOW tha* yee7thins about the connect has gone okay. 
This routine will copy all ISAM specific current and next record 
ositioning information from the context XAB into the IRAB and key 
uffers allocated on the Connect. 


A certain amount of wae | checking is done to verify that the NRP 
information is correct. On | error, return is immediate and 3 

context restoration is done. irst, a check is made to see if t 

version of the context block and the version number of the oktoshed context 
buffer is VER1. Next, the high order word of each RFA is verified 

to be zero. The key Size fields are checked to be the same. The user 

data record VBN/ID pair are zeroed to indicate that there is NO current 
record with respect to the operations such as Delete, and Update. These 
operations imply record locking which does not take place on process restart. 


Sele te Te ee be be i hah ahah ab db dh Ah db db db dh db dh Ab Ah db dh Ab Ah db dh dh Ah Ah Ah dh Ah dba 
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SSNS 
DBOODOODOOOSW OOOO OO OO 000000000 09 09 69 09 65 08 SINISE NIN NOAA OO 
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XCONNO3: 
03 54 19 § BBCC #XBCSC_CONNCXR,R4,5$ ; Check uriqueness of XABCXR 
0088 1 BRW ; error ~ multiple XAB's 
01 WAS 91 5$ CMPB XABSB_CXRVER(R3) ,AXABSC_CXT_VER1 3; verify version 
oo ts BEQL 8$ 
0082 = =31 BRW 60$ ror on versi 
01 10 AS = 04 1c ED 8$ CMPZV 3 #XABSV_CXRBVER, #XABSS_CXRBVER, XABSL_ cXRCOP CRS) , #XABSC CB. nVERI 
7A 12 BNEQ 60$ ; Error = not correct ver 
OOAC C9 $5 A3 dO MOVL XABSL_CXRPOSO(R3) , IRB$L_POS_VBN(R9) : Primary record NRP RFA 
OOBA C9 0A3_ £60 MOVW XABSW_ CXRPOS4(R3) IRBSW_ POS_ ID(RY) : Primary record NRP RFA 
32 a3—BS TSTW  KABSWICXRPOS4+2(R3) : Check the MBZ field of RFA 
69 12 BNEQ 60$ : Error out if not zero 
OOA8 C9 34 AS = i00 MOVL XABSL opencuny the) «Res. CUR_VBN(R9) :; Primary record RFA 
0088 C9 38 AS’ BO MOVW XABSW_ CXRCUR4(R3) IRBSW_ CUR_ ID(RY) : Primary record RFA 
3A AS BS TSTW XABSWICXRCUR4+2(R5) > check MBZ field of RFA 
58 12 BNEQ 60 : error out if not zero 
0084 C9 3C AS 00 MOVL XABSL SUS TOO ERS) -f att IDR_VBN(R9) : si08 a4 
OOBE C9 40 A3 860 MOVW XABSW_CXRSID4(R3) , IRBSW_SIDR_ID(R9) : SIDR 
42 a3 BS 079 TSTW XABSWICXRSI 31p4s5cR$) : Check RMBZ field of RFA 
47 = 1 9 BNEQ S08 3; error out if not zero 
00CO C9 «644 4A 8 78 MOVW XABSW_CXRCNT(R3) , IRBSW_CUR_COUNT(R9) : SIDR array count 
00Cc3 (9 46 A A MOVB XABSB_CXR RKREF (R35, 1RBSB_CUR_KREF (R9) : current key of ref 
04 AI 14 A dO 7A7 MOVL XABSL_ CXRBKP(R3) {RBSL _BKPBITS(R9) 3 copy soennnen ne bits 
0080 C9 D4 O7AC CLRL —IRBS$L~UDR_VBN(R9S : make sure User Bata RFA is 
00BC C9 = B4 boeE : CLRW IRB$W_UDR_ID(R9) 3; And id too. 
7B4 12 ; Probe the user's key buffer and copy the counted ascii key strings 
ree ! : (minus the count) into the internal key buffers. 
50 goes cA 3C 0784 1 MOVZ2WL IFBSW_KBUFSZ(R10),RO : Key buffer size 
OOFF 8F 0 Bl 789 1 CMPW RO,#255 3 find out if key size max 
4 78 1 BLEQU 5 3 key sz less than 255 
70 FF 8F 9 7C 1 MOVB 5,R0 3; key size is max. 
47 a3 50 «691 «0704 «1719 508 CMPB —s- RO, KABSB_CXRKLEN(R3) : compare that key size sane 
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v04-000 RMSCONNXAB = ROUTINE TO RESTART CONNECT mets Ti 93:33:29 LRMSSRCIRMOXAB. MAR: 1 . (38) v¢ 
1 1 7¢C8 1720 BNEQ 60$ : buffer not okay for use 
51 48 A B 7CA 1721 MOVL XABSL_CXRBUF (R3) ,R1 : (ri) = user buffer 
61 22A3 OAA § 7CE 17 § PROBER RBSB_MODE (R9) ,XABSW_CXRBFZ(R3), (R1) 3; Probe readability 
0 1 704 17 BEQL ; Buffer not okay for use 
0200 8F 222A B1 O07D6 1724 CMPW XABSW_CXRBFZ(R3) ,AXABSC_CXRBLEN ; Make sure long enough 
oc =O1E pe Vf 5 BGEQU § 70$ ; must be at least that 
OOES8 8F BA O7DE 17 5 58s: POPR #*M<R3,R5,R6,R7> ; restore registers 
7E2 1728 60$: RMSERR X 
F91C 3=—s 331.s«*OPE?) = 1729 Pd CLNSTK 
7EA 1730 ; 
7EA 1731 ; (RO) = key size from IFAB. 
7EA 17 $ ; (R1) = User key buffer address. 
O7EA 1735 ; Save the input registers for the MOVC#. First move the saved key into 
O7EA 1734 ; keybuffer 1, then after computing the size of keybuffer 6, move in that 
prea Vy 1 ; key. Verify that the remaining part of the user key buffer is zeros. 
QOOE8 8F 8B O7EA 1737 70$: PUSHR #*M<R3,R5,R6,R7> ; save registers for MOVC 
56 50 00 O7EE 1738 MOVL 3 save the Length there 
50 81 90 O7F1 1739 MOVE (R1)+,R0 ; Move keybuf size, inc poin 
56 50 91 O7F4& 1740 CMPB RO,R6 3 compare size fields 
#3 \e O7F7 1741 BNEQ 3: No match - invalid buffer 
60 B89 = 61 0 28 O7F9 1ee6 MOVCS RO,(R1),@IRBSL_KEYBUF (R9) ; Move keybuffer 1 
56 81 91 O?7FE 174 CMPB (R1)+,R6 ; Compare key size fields 
DB Sé2 +44 oe: BNEQ 58$ : No match - invalid buffer 
0803 1766 ; Compute the size of keybuffer 6 and move the key from the user buffer 
50 56 QO c5 $803 1748 MULL3 #5,R6,RO ; compute addr of key buffer 
5 60 Ao =6CO 0807 1749 ADDL IRB$L_KEYBUF (R9) ,RO ; add in base address 
60 61 5 28 th 1739 MOVC R6, (RT), (RO) 3; move key 
st 1736 : Compute the total number of characters written into user buffer 
56 56 CO SBOE 1754 ADDL R6,R6 : (r6) size or key 
56 02 CO oats 1755 ADOL #2,R6 3; add the counted ascii part 
56 00000200 8F 56 (C3 pat 1756 SUBL3 R6,#XABSC_CXRBLEN,R6 3: subtract from total Length 
61 56 00 38 081D 1757 SKPC #0,R6, (RID 3 make sure they are zero 
BB 12 O821 1758 BNEQ : not valid buffer.... 
OOE8 8F BA bas3 172? POPR #*M<R3,R5,R6,R7> 3; restore registers 
a8s7 1761 80$: RMSSUC 
05 082A 1762 RSB 
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p++ 
3; KABTRM rouine called if a terminal XAB is found for a $GET/$PUT. 
; Simply save address of XABTRM in RS for use by caller of RMSXAB_SCAN. 


XABTRM: 
BBSS 


MOVL 


RMSSUC 
RSB 


ERRIMX_TRM: 
BRW 


~ END 


#XBCSC_GETPUTTRM,R4, ERRIMX TRM 


R3, R5 


ERRIMX 


; 
2 
P 


Flag XAB seen; if seen, error. 
Save XAB address in RS for later use. 
aperaste success. 


; Need extended branch. 
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$$.PSECT_EP 
SSRMSTEST 
ATRSC_UIC_RO 
BKTSC_MAX6 
AB 
FABSC_STM 


RMOXAB XAB PROCESSING ROUTINES 16-SEP-1984 00:41:40 VAX/VMS Macro V04-00 
Symbol table eae 93:33:09 LRMS SRCIRMOKAB. MARS 1 
1FBSL_ = 7 RMSSETALLOC 380 RG 1 
LEBSV-AT : : RASSETEXTRAS bo000552 Re a 
IFBSV_AT = 4 RMSSET_XABALL eeeereee =X 1 
1FBSV_B1 = RMSXAB_SCAN 000 930 RG 01 
IFBSV_CREATE 2 RMS$_ATID = 0001834 
IFBSV_NEVER_RU = RMS$_BKZ = 00018424 
1FBSV_ONLY = 00 : 0 RMS$_COD = 184AC 
IFBSV_RESTART = 8 B RMS$_ENV s 4 724 
IFBSV_RU = 00000001 RMS$_IMX = 0001856C 
IFBSW_DEQ = 8) o¢ $$_ORG = 0001 ts 
1FBSW_GBC = 0000006 RMS$_PENDING = 00018009 
1FBSW_KBUF SZ = 98 4 S$_STA s 901 9 1 
1FBSW_LRL = 00 2 MS$_XAB = 1 s 
IFBSW_RTDEQ = 0000004 RMS$_XCR = at es) 
IRBSB_CUR_KREF = 44 445 ABTBL QOO000A R 01 
IRBSB_MBC = 000000 RXABTBLEN = 4a Ts 
IRBSB_MBF = 0000005C SETALQ 00000336 R 01 
IRBSB_MODE = Q000000A SETSTV QOOOOOFS R 01 
IRBSL_BKPBITS = ale ye STVRSB 00000305 R 01 
IRBSL_CUR = 000000A8 SUCXIT QOOOO0ES R 01 
IRBSL_KE YGuF = 00000060 SYSSGETTIM aeeeeeee GX 01 
IRBSL_NRP_VBN = 00000040 VIC 00000251 R 01 
IRBSL_POS = QO00000AC XABS$B_AID = 00000017 
IRBSL_SIDR_VBN = 00000084 XAB$B_AIL = 00000015 
IRBSL_UDR = 00000080 XABS$B_AIS = 00000014 
IRBSV_RESTART = 00000038 XAB$B_AOP = 00000008 
IRBSW_CUR_ = 0000000 XABSB_ATL = 0000001D 
IRBSW_CUR_I = 00000088 XABS$B_ATR = 00000009 
IRBSW_NRP_OFF = si 4 XABS$B_ATS = 0000001C 
IRDSW_POS_ID = Q000000BA XABS$B_BIL = 0000000D 
IRBSW_SIOR_1D = QO00000BE XABSB_BIS = 0000000C 
IRBSW_UDR_TD = 0000008C XABS$B_BKZ = 00000016 
MTACC 0000025D R 01 XABSB_BLN = 00000001 
NXTXAB 44 4 243 R 01 AB$B_COD = 00000000 
OPNCRE_ARGS 00687 R 01 ABSB_CXFFAC = tte 

XABT_ARGS 0000019 R 01 XABSB_CXFORG = 0000002 
OPNXAB_ARGS 00000 og R 01 XABSB_CXFRTV = 0000002A 

00000245 R 01 XABSB_CXFSHR = 00000023 

PROT_MODE i444 69 R 01 XABSB_CXFVER = QQQOO0TA 
RABSE_BID = 000000 ° XABSB_CXRKLEN = 00000047 
RABSB_MBC = 000000 XABSB_CXRKREF = 00000046 
RABS$B_MBF = 4 444 6 XABSB_CXRMBC = ppp oe5E 
RABSL_STS = 00000008 XABSB_CXRMBF = 00000020 
RABSL_XAB = 4 ObG XABSB_CXRVER = BOO SC SOA 
RABSW_151 = 0 XABSB_MTACC = 0000000A 
RET O006F5 R 01 XABS$B_PROT_MODE = ie Hey 
REV_DATE_COUNT 0 16F R 01 XAB$B_PROT_OPT = 000 $808 
RMSCONNXAB 0000705 RG 1 XABSB_RFO = 0000000 
RMSERRAID O08 3C9 RG 1 XABSC_ALL = Spa e 
RMSERRIMX 0101 RG 1 XABSC_ALLLEN = 000 3059 
RMSEXTEND_XAB eeneeeee = =X 1 XABSC_CXB_VER1 = 389 001 
RMSIALLO eeeeeeee 6X 1 XABSC_CXF = 020 
RMSIKEYO ereneeee =X 1 XABSC_CXFLEN = 0000005C 
RM$1SUMO eeeneeee § x 1 XABSC_CXR = 1 
RMSOPEN_XAB Song RG 1 XABSC_CARBLEN = 00 0 
RMSOPEN” XAB1 6 RG 1 XABSC_CXRLEN = 00 4 
RMSOPNCRE XAB 00688 R 1 XABSC_CXT_VER1 = 00000001 
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RMOXAB sactrpccengeetie tinea SrSEP=198¢ o:d2:67 ERMS.SRCIRMOXAB-MARS (27) 
Symbol table : | 
XABSC_DAT = 00000032 prt Ma = $ooooo04 
XABSC_DATLEN 4 i XABSV "BI = 00 g | 
XABSC_DATLEN_V2 = D XABSV- CBT = 8 | 
eee at Mt = 00000 XABSV~CTG . ? | 
XABSC_FHCLEN . % XABSV-CKERST = 90000000 
AST INE LEN = 000 $ XABSV—CXRBVER = 3 ! | 
KABSEJNLL = 0000001 XABSV-CXRRST = 9000000 | 
ape = $000001 XABSV-NEVER_ RU = 0000000 
ret B ae = 0000001 KABSV-ONLY_RU = 99000000 
RAB SE EROLEN_VS = 00000018 XAB$V~PROPAGATE = 90000000 
pea = 90000014 XABSV-RU ae 4454 8 
RABSE RDILEN = 90000016 XABSW"ACLLEN = QO00001E 
XABSC SUM = 0000001F XABSW-ACLSIZ = 0000001. 
KABSCAIRA = 2390005 rast cron = 90000028 
XABSL ~ACLBUF = 09 0 it - = 00000018 
ABSA EY = 8990848 pineal = $tiE 
KABSLZAIA = 00000018 KABSW-CXRCNT | = Boop ooss 
KABSL ALG aia mit = 90000018 
XABSL ATA = 00000010 XABSW~CXROF F = 000000¢8 
SL_BIA = 00000014 XABSW~CXRPOS4 = 00000030 
KABSL COTO = 00000018 XABSW~CXRSID4 = 00000040 
SL_COT 00000014 XABSW_DEQ = 00000014 
XABSL_CXFBKP = 00000010 XABSW_JOP = 00000008 
rites ttats = 00000008 KABSUILRL = Bonne 
XABSL_CXF STV = 0000000C XABSW_PRO = 00000008 
KABSL_CXRBKP = 90000048 XABSU-VERLIMIT = 00000026 
XABSL _CXRBUF = 00000010 XABCLSPRO 00000200 R 01 
XABSL _CXRCOP = 00000034 XABCLSRDT OOOO0TES R 01 
XABSL _CXRCURO = 9000002¢ XABCONNCXR oo00070c Rss 
~tiRSt = 9000008¢ XABCREALLO 0000392 R Ot 
XABSL_CXRS1DO = 00000008 XABCREALL1 0000033C R 01 
XABSL_CXRSTS = 0000000C XABCREALL2 9000036 R 01 
XABSL_CXRSTV = 00000024 XABCREJNL 00003DD R 01 
XABSL_CXRVBN = 00000010 XABCREPRO 60900273 R Ot 
pe . 909000¢ XABCREPRO1 oon0ders RO 
HABSL-ROTO = 900000¢ FABDSPALLI 99000521 R Ot 
XABSL_RDT4 : 9900015 KABDSPEHCI 00000148 R 01 
Rimi = 999006 AHO Beef 
XABSA_Ai = 00000010 XABEXTCXF 00000585 R sO 
XABSA-B1 : 09 4 XABEXTCXR paengene RS 
XABSA_CBT atti t4 XABOPNCXE 0000 ec3 R 01 
SM_CTG 0 8 XABOPNDAT 0000017C R 4 
XABSA_NEVER RU . O84 XABOPNFHC 9000114 R 1 
eid = 000000 XABOPNFHC1 13D RO 
one s i XABOPNJNL OO04A3 RO 
eete-tot = BopooRT4 XABOPNPRO TE9 R , 
XABSQ_ ~ iC XABOPNPRO1 tan f 
pee = Sennen Asean Sgt 8 
XABSS~ CXRBVER = 00000004 ABTBL 
| 
} 
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PSECT No. 
00 ¢ 0.) NOPIC 
4 ( 1.) PIC 

2¢ 2.) NOPIC 


Allocation 


00000000 < 


80000000 


1082) 
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Page faults CPU Time 
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Attributes 


USR 
USR 
USR 


CON 
CON 
CON 


ABS 
REL 
ABS 


CL NO 
BL NOSH 
CL N 
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Page 
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pe NO 
OSHR 


EXE 
EXE 
EXE 


NORD 
RD 
RD 


NOWRT NOVEC BYTE 
NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
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RMOXAB 
VAX-11 Macro Run Statistics RMS .SRCIRMOXAB.MAR; 1 (27) 


Symbol table output 47 :00:00.34 0:00:02.13 
Psect synopsis output 4 :00:00. :00:00. 
Cross-reference output 9 :00:00. :00:00. 
Assembler run totals 132 :00:34.4 :01:20. 


138 yerking x poe. was 1950 pages. 
329 bytes. f 60 pages) of virtual memory were used - buffer he intermediate sgée- 
here were 120 pages of symbol table space al r9, 20. ob hold 2187 non-local and local symbols. 
source "tabs were read in Pass 1, producin object records in Pass 2. 
41 pages of virtual memory were used to define 2o macros. 
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! Macro Library statistics ! 


Aesmemmeninen Sane arene noe eww ee + 


Macro Library name Macros defined 


SSSDUA 8:8 we ay YS me: 1 24 
$255SDUA MLB; 1 3 
$255SDUA28 Feyaise STARLET. MLB; 2 g 

Tetis (all libraries) 36 


2285 GETS were required to define 36 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:RMOXAB/OBJ=0BJ$:RMOXAB MSRC$:RMOXAB/UPDATE=(ENHS : RMOXAB) +EXECML$/LIB+LIB8$:RMS/LIB 
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